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Leggere la directory 

Ho visto in alcuni programmi pubblicati 
delle routine per la lettura della directory 
del disco e la visualizzazione dei file in 
esso contenuti. Non mi è tuttavia molto 
chiaro il funzionamento di dette routine, 
soprattutto delle molte istruzioni CHR$ 
che sono sempre presenti. Potreste es- 
sermi d'aiuto? 

D. Rlgamonti 

R. Ecco un esempio, del tutto generale, 
di una routine di lettura della directory 
del dischetto: 

10 0PEN2, 8,0, "$" 

20 GET#2, A$ :GET#2, A$ 

30 GET#2 , L$ : GET#2 , L$ : IFST=64 
THENCL0SE2 : END 

4 0 GET#2 , LB$ : GET#2 , HB$ : LN=ASC 
<LB$+CHR$ (0) )+256*ASC 
(HB$+CHR$ (0) ) 

50 PRINT LN; 

60 GET#2 , A$ : IFA$ = N "THENPRINT 
CHR$ (13) ; : GOT030 
70 PRINTA$; :GOT060 

11 file della directory, che ha nome 
può essere letto proprio come qualsiasi 
altro file su disco: dal momento che è un 
file in formato programma, occorre utiliz- 
zare l'indirizzo secondario 0 (buffer 0) 
nell'istruzione OPEN di linea 10. 

Come sempre, i primi due byte di un file 
programma rappresentano il suo indiriz- 
zo iniziale in formato byte basso / byte 
alto; poiché non interessano ai nostri 
scopi, essi sono letti, ma ignorati dalla li- 
nea 20. 

Ogni linea di un programma BASIC è 
composta in RAM e su disco da quattro 
parti: i link di linea, il numero di linea, il 
contenuto della linea e uno zero finale. 

La linea 30 legge i link e controlla il con- 
tenuto della variabile riservata ST: se 
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questa assume il valore 64, si è giunti al- 
la fine del file, il quale viene chiuso con 
termine della routine. 

Pertanto, se intendete utilizzare questa 
routine nei vostri programmi, rinumera- 
tela opportunamente e sostituite con un 
RETURN l’istruzione END in linea 30. 

La linea 40 legge i byte basso e alto del 
numero di linea e ne calcola il valore de- 
cimale, che viene stampato sullo scher- 
mo dalla linea 50. 

Naturalmente, la directory di un disco 
non possiede numeri di linea veri e pro- 
pri, ma, trattandosi di un file program- 
ma, il numero di blocchi occupati su di- 
sco da ciascun file viene trattato esatta- 
mente come i! numero di linea di un'istru- 
zione BASIC (vi sarà sicuramente capi- 
tato di dare inavvertitamente un RUN a 
una directory, ottenendo in risposta il 
messaggio "? SYNTAX ERROR IN 0”...). 

Il resto della linea è letto, carattere per 
carattere, fino a che viene raggiunto lo 
zero di fine linea, in corrispondenza del 
quale la routine stampa sullo schermo 
un CHR$(13), cioè un carattere di RE- 
TURN. 

Dopo l'andata a capo viene letta la linea 
seguente, e così via fino a che viene 
raggiunta la fine del file. 

Se desiderate inserire i nomi di file all'in- 
terno di un vettore, è sufficiente conca- 
tenare in un'unica stringa i caratteri let- 
ti, dopo la GET#2,A$ di linea 60. 

Relfillng e I caratteri speciali 
nei nomi di file 

Ho notato che i nomi dei file salvati su di- 
sco dal programma "Relfiling System 
2.0 H appaiono sulla directory con uno 
strano carattere in H reverse H , mentre se 
caricati dal programma stesso lo strano 


simbob scompare nella visualizzazione 
del nome. E' normale tutto ciò? 

D. Marini 

R. E' perfettamente normale: il program- 
ma aggiunge infatti in testa al nome del 
file un CHR$(18), ovvero un carattere di 
REVERSE ON. Ciò consente al 
programma di riconoscere, tra i vari file 
eventualmente presenti sul dischetto, 
quali sono gli archivi e gli indici da utiliz- 
zare, e quali invece normali file program- 
ma o dati generati da altri programmi. 
Oltre a ciò, la visualizzazione da pro- 
gramma del nome del file appare già au- 
tomaticamente in campo inverso. 

A proposito di Relfiling System 2.0, ci è 
stato segnalato che su alcune (per fortu- 
na poche) cassette il programma non 
viene trovato dal registratore, anche se 
è chiaramente presente dato il lungo 
scorrere del nastro. Pur non essendo 
ancora riusciti a spiegarci il perchè del- 
l’inconveniente, abbiamo verificato che 
Relfiling risulta perfettamente caricabi- 
le, se si carica il programma che lo pre- 
cede (Preview 80) con il doppio 1, si dà 
un NEW a fine caricamento e si digita 
poi un semplice LOAD. A questo punto 
Relfiling verrà caricato da cassetta e sa- 
rà pronto per essere trasferito su disco. 

Si noti infine che caricando Relfiling da 
nastro ed attivandolo prima di averlo tra- 
sferito su disco, la visualizzazione della 
data corrente risulta distorta: ciò a cau- 
sa delPutilizzo del buffer del registratore 
per la memorizzazione dei parametri re- 
lativi alla data; l'inconveniente tuttavia 
scompare non appena si salvi su disco 
il programma stesso. 

Dissolvenze sulle pagine gra- 
fiche 


In una presentazione pubblicitaria realiz- 
zata con un C64 t alcune schermate in al- 
ta risoluzione si succedevano sullo 
schermo del monitor collegato al compu- 
ter Il passaggio da una schermata all'al- 
tra non avveniva però in modo brusco e 
netto, ma ogni videata andava a sovrap- 
porsi alla precedente con una serie di 
"pennellate" dall’alto verso il basso . Co- 
me si fa a realizzare un effetto come 
questo? 

M. Miranetto 

R. Un effetto come quello descritto, 
senz'altro più gradevole del brusco 
"switch" tra un’immagine e l'altra, non ri- 
chiede alcun programma particolare, ma 
soltanto una tecnica di caricamento di- 
versa dal solito. Innanzi tutto le pagine 
grafiche devono essere salvate su di- 
sco nelle loro giuste locazioni originarie; 
dopo aver caricato e attivato la prima pa- 
gina grafica sarà sufficiente predisporre 
un ciclo di ritardo che ne permetta la vi- 
sualizzazione prima di iniziare il 


caricamento della successiva. Se la 
mappa di bit non viene più disattivata, il 
caricamento delia seconda pagina grafi- 
ca potrà essere "visto" a video, con l'im- 
magine che pian piano si va a sovrappor- 
re alla precedente. Poiché la locazione 
di memoria più bassa di una pagina gra- 
fica è la superiore sinistra ,e la più alta è 
l'inferiore destra, l'immagine inizierà a 
crearsi dalla riga di pixel più alta per ter- 
minare in quella più bassa, 

Speedscrlpt e RS-232 

La mia stampante si collega al computer 
non tramite il bus seriale, ma attraverso 
una scheda di interfaccia RS-232: volen- 
do utilizzare il programma SpeedScript 
per stampare i miei testi, ho provato a re- 
golare la stampa (tramite SHIFT CTRL 
P) sul numero di periferica 2 con indiriz- 
zo secondario zero, che dovrebbero 
corrispondere alla RS-232. Malgrado 
questa regolazione , il programma non 


stampa nulla, per cui vi sarei grato di 
Una spiegazione dell'inconveniente. 

R. Bissolati 

R. Il programma SpeedScript non sup- 
porta l’uscita su RS-232, ma solo sul 
bus seriale: regolando semplicemente il 
numero di periferica sul 2 e l'indirizzo se- 
condario su zero non si realizza un'aper- 
tura di canale RS-232, in quanto manca- 
no così i parametri relativi ai registri di 
comando e di controllo (baud rate, pari- 
tà, lunghezza parola, bit di stop, ecc.) 

Se si possiede una stampante RS-232, 
occorre quindi ricorrere a un altro pro- 
gramma di word processing scritto per 
funzionare anche con questa interfac- 
cia, come ad esempio il diffusissimo 
Easy Script. I file scritti con Speed- 
Script possono essere agevolmente 
convertiti nel formato richiesto da Easy 
Script (Commodore ASCII) attraverso il 
programma di conversione pubblicato 
insieme alla versione 3.0 di Speed- 
Script. 


SUPERCOMMODORE è bello, però... (ovvero sug- 
gerimenti, idee, critiche, richieste e tutto ciò che vi 
passa per la testa). 
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gliamo quindi di porre grande atten- 
zione nel digitare tale tipo di istru- 
zioni. 

Un'ultima avvertenza sull'utilizzo di 
OK-LIST riguarda le abbreviazioni 
delle istruzioni BASIC: esse non 
vengono riconosciute da OK-LIST e 
generano pertanto un checksum dif- 
ferente. Se si utilizza OK-LIST, le 
istruzioni BASIC dovranno quindi es- 
sere digitate per intero. 

Data la sua posizione in memoria (il 
buffer del registratore), OK-LiST in- 
terferisce con ogni operazione con 
l'unità a cassette. Per questo moti- 
vo prima di effettuare un SAVE su 
nastro OK-LIST dovrà essere pre- 
ventivamente disabilitato attraverso 
la pressione di RUN/STOP e RE- 
STORE. 

Non è possibile effettuare operazio- 
ni di LOAD da cassetta senza cancel- 
lare OK-LIST dalla memoria. 

Queste limitazioni non sono invece 
presenti, se si utilizza il disk drive co- 
me memoria di massa. 

Nel caso si prema accidentalmente 
RUN/STOP e RESTORE durante l'u- 
tilizzo di OK-LIST, esso potrà esse- 
re riattivato digitando SYS886. 


Potete a questo punto iniziare a rico- 
piare il programma BASIC prescelto, 
evitando di digitare la "rem" seguita 
da un numero che compare al termi- 
ne di ogni linea. Come vedrete, alla 
pressione di RETURN apparirà un 
numero nell'angolo superiore sini- 
stro dello schermo: confrontatelo 
con quello riportato dopo la "rem" 
sul listato: se è diverso, avete com- 
messo un errore nel digitare quella li- 
nea di programma. 

OK-LIST non verifica gli spazi all'in- 
terno di una linea di istruzione: se 
tutti i checksum (così vengono chia- 
mati i numerini di controllo visualizza- 
ti da OK-LIST) sono corretti, e il pro- 
gramma genera invece delle videa- 
te 'spezzettate', probabilmente ave- 
te dimenticato o aggiunto qualche 
spazio di troppo aH'interno delle vir- 
golette di una istruzione PRINT. 
Inoltre, OK-LIST non è in grado di 
controllare la sequenza con la quale 
vengono digitati i caratteri all'intemo 
di un’istruzione: ciò è particolarmen- 
te pericoloso nel caso delle istruzio- 
ni DATA contenenti molti numeri. 
Ad esempio, digitando 220 dove an- 
drebbe digitato 202, non si verifica 
alcuna variazione nel checksum, pur 
avendo commesso un errore: consi- 


S appiamo tutti quanto sia diffici- 
le digitare correttamente un pro- 
gramma (ovviamente, se non si di- 
spone della cassetta allegata alla rivi- 
sta!). Errori di digitazione anche ba- 
nali possono provocare il malfunzio- 
namento del programma stesso o 
anche il blocco completo del compu- 
ter, obbligando a riprendere da ca- 
potutto il lavoro. 

OK-LIST è un particolare program- 
ma in grado di intercettare gli errori 
commessi durante la digitazione di 
uno dei listati da noi pubblicati, e di 
segnalarveli. 

Digitate il listato pubblicato in que- 
sta pagina (attenzione a non com- 
mettere errori: OK-LIST non può 
controllare se stesso!) e quindi salva- 
telo su nastro o disco. 

Quando dovrete accingervi a digita- 
re uno dei nostri programmi in BA- 
SIC, caricate per prima cosa OK- 
LIST e dategli il RUN: dopo una bre- 
ve attesa, necessaria a inserire in 
memoria una routine in linguaggio 
macchina, comparirà sullo schermo il 
messaggio "OK-LIST ATTIVATO". 


Buon lavoro! 


10 PRINT" {CLRjATTENDERE PREGO..." 

1 1 FORI..= 886T0101 8 : READA:CK=CK+A: POKEI , A: N 
EXT 

12 IF CROI 7539 THEN PRINT" (GIU '} ERRORE N 
ELLE ISTRUZIONI DATA" : END 

13 SYS886 : PRINT" {CLR}{ 2 GIU'}OK-LIST ATT 
I VATO " • NEW 

14 DATAI 73)036,003,201 ,1 50,208 

15 DATA001 ,096,141 ,151 ,003,173 

16 DATA037, 003, 141 ,152,003,169 

17 DATA150, 141 ,036,003,169,003 

18 DATAI 41 , 037, 003, 1 69 ,000, 1 33 

19 DATA254 , 096 , 032 ,087 , 241 ,133 

20 DATA251 ,134,252,132,253,008 

21 DATA201 ,013,240,017,201 ,032 

22 DATA240, 005,024, 101 ,254,1 33 

23 DATA254, 165, 251 ,166,252,164 

24 DATA253 ,040,096,169,013,032 

25 DATA21 0,255,165,214,141 ,251 

26 DATA003, 206, 251 ,003,169,000 

27 DATA133, 216, 169, 01 9,032,210 

28 DATA255 , 169,018,032,210,255 

29 DATAI 69,058,032,210,255,166 

30 DATA254, 169,000,133,254,172 

31 DATAI 51 ,003,192,087,208,006 

32 DATA032, 205,1 89,076,235,003 

33 DATA032, 205, 221 ,169,032,032 

34 DATA21 0,255, 032, 210, 255, 173 

35 DATA251 ,003,1 33,21 4,076,1 73 

36 DATA003 


1 REM LOeCK 


£ REM RENUMBER ___ m _ 

S LET rad top «PEEK aS73®+aB6#P 
£EK 23731 

10 CLEPR r a* top -28: «EH RRMTO 
P-n 

15 LET ra»top»PEEK 23730+258#P 
EEK £3731 

30 LET a ^^L* AP»l: LET n *2© 

4-0 GO 

53 On\ 

130 Y//7 S \\\ 

135 y/v / \\\RB 7;”0EC ,f ; 

TRB ir +1 M\ 

14.01 / 

150 1 / 0 rJa ì 


160 \)\ 
190 V\\ 

£00 IV N 

210 Fk 

^ Ah n 

326? REft i 
230 POR 
240 NE 
250 RE 
260 RE) 
300 Dgj 
^ 115,39 
, 206 , 2JT 

1000 Jà 

1010 fU 
1020 tU 

1039 tU 
1040 tU 

i9S0fi m 
i©7f Jfr 


|V«ti 

f» 42,63, 92, 17,0,0,114 , 35 
n , 35 , 70 , 35,9,126,254 , 64 
«53, 0,0, 25, 235, 226,24, 23 

F C*»*‘0123456769R©CDEF" 

W bj*'"' 

i 1*1 TO‘0 STCP -1 
fr b*INT Id^lBtlO 
T <b + l) 

T d»d k 

XT 1 

TURN 
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Piccola guida per 

l'input 

dei programmi 


I program mi in BASIC listati su SUPER- 
COMMODORE contengono una particola- 
re codifica dei caratteri di controllo (cursore, 
colore, reverse, eccetera) che permette di ot- 
tenere una maggiore leggibilità dei pro- 
grammi. 

Generalmente, questi listati contengono alcu- 
ni caratteri racchiusi tra parentesi graffe { }; 
queste ultime, che non esistono sulla tastiera 
del computer, non devono essere digitate, 
ma hanno unicamente lo scopo di indicare 
che i caratteri da esse racchiusi sono dei ca- 
ratteri di controllo. 

Ad esempio, {GIU'} indica che occorre pre- 
mere una volta il tasto di cursore verso il bas- 
so, {3 GIU'} indica che il tasto di cursore ver- 
so il basso dovrà essere premuto tre volte. 

Se tra le parentesi graffe è racchiuso un sin- 
golo carattere, quest'ultimo deve essere pre- 
muto insieme al tasto CTRL (ad esempio, in- 
contrando {A} si dovrà premere il tasto CTRL 


insieme al tasto A). 

Invece i caratteri racchiusi tra parentesi qua- 
dre e simboli di maggiore e minore [< >] de- 
vono essere premuti unitamente al tasto 
Commodore (nell'angolo inferiore sinistro 
della tastiera). Ad esempio, [<A>] indica che 
deve essere premuto il tasto Commodore in- 
sieme al tasto A. 

Infine, alcuni caratteri racchiusi dalle parente- 
si graffe preceduti dalle lettere SH: do indica 
che il carattere seguente deve essere 
digitato tenendo premuto il tasto SHIFT. 

La tabella seguente riporta, per ogni caratte- 
re di controllo, la codifica utilizzata nei nostri 
listati. 

I listati in linguaggio macchina (totalmente nu- 
merici) non possono invece essere copiati di- 
rettamente con il computer, ma richiedono l'u- 
tilizzo dello speciale programma MLX, riporta- 
to, insieme alle istruzioni per il suo utilizzo, in 
altra parte della rivista. 


Quando leggete: Premete: Vedrete: Quando leggete: Premete: 


{CLR } 

{ HOME } 
{SU} 

{ GIU' } 
{SIN } 
SOES • 

{ RVS } 
{OFF ) 

! bi,k 
; wht ; 

i REI) h 


SHIFT 1CIR/H0ME 


■ 

1 

CLR/ HOMI 1 



SHIFT 

i 

Il CRSR |i| 


flautini 


SHIFT 

1 

^CRSR^l 


■8888 

mi 

|f§bj 

i 

te CRSR =4] 

jggpil 


m 

CTRL 

1 

m 


CIRI 




CTRL 8 1 


CTRL 8 2 


CIRI 


c 



□ 



il 






H 


{ CYN } 
{PUR} 
{ GRN } 
{BLU} 
{YEL} 
( < 1 > 1 
[ < 2 > 1 
| <3 > } 
I < 4 > ! 

( v5 >■{ 

! •' fi ' j 


CTRL 


CTRL 


GEIQ 


CTRt 


SO 
QD 
HO 
0 O 
□ Q 

SO 


Vedrete: 







□ 





pn 

Ma 




Quando leggete: Premete: 

[<7>] I3D 

t<8>] 

(FI} 

{ P2 } ■ 

{ F3 } 

{F4j 

{ F5 } 

{ F 6 } 

{ F 7 S 

* "■ " 

f F8 i 


Vedrete: 


D 
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Come riposizionare la memoria 
basic del ,C 



diM. Cristuib Grizzi 

Come riposizionare la memoria 
BASIC del C64 

Nella programmazione o anche 
solo nell'utilizzo di programmi 
già pronti, ci si trova spesso a 
dover spostare l'inizio o la fine 
della memoria BASIC per lascia- 
re spazio a dati o programmi. In 
questo artìcolo esaminiamo tali 
tecniche, facendo riferimento a 
programmi già pubblicati. 

Abbiamo più volte affrontato, nella rubri- 
ca Read&Write , l'argomento del trasferi- 
mento su dischetto dei nostri programmi 
in linguaggio macchina attraverso MLX. 
Malgrado ciò, una tecnica che appare 
essere piuttosto ostica per i programma- 
tori è quella del riposizionamento della 
memoria BASIC, spesso richiesta dall'u- 
tilizzo di MLX, che sì concretizza in una 
serie di istruzioni POKE da effettuare 
prima del caricamento del programma. 
Analogamente, ci sono pervenute molte 
richieste di ulteriori spiegazioni sul cal- 
colo di queste POKE di riposizionamen- 
to, necessarie anche per l'utilizzo del 
programma "Rilocatore" pubblicato sul 
numero 2 di quest’anno. 

Vediamo dunque a che cosa servono 
queste famigerate POKE, e come calco- 
larle per ogni esigenza. 

MLX è un programma che, oltre ad esse- 
re indispensabile per digitare i program- 
mi in linguaggio macchina, è molto utile 
anche per trasferirli da nastro a disco e 
viceversa. 

In entrambi i casi la memoria del C64 de- 
ve quindi ospitare contemporaneamen- 
te sia il programma MLX che il program- 


ma in linguaggio macchina: è pertanto 
fondamentale che non si verifichino in al- 
cun modo sovrapposizioni, ma ciascun 
programma occupi zone di memoria di- 
stinte e separate. 

I programmi in linguaggio macchina per 
il C64 possono essere suddivisi in quat- 
tro categorie, in funzione dell'area di me- 
moria da essi occupata: 

1. Programmi esterni all'area BASIC, 
ma non sottostanti la ROM (tipicamente 
quelli che partono dalla locazione 
49152). 


2. Programmi esterni all'area BASIC, 
ma sottostanti la ROM (anche se piutto- 
sto rari, in genere partono da 40960 e 
stanno sotto l'interprete BASIC). 

3. Programmi nell'area BASIC bassa 
(partono dalla locazione 2049 e in gene- 
re posseggono una linea BASIC che 
esegue la SYS di attivazione, si posso- 
no caricare e salvare senza accorgimen- 
ti particolari e come normali programmi 
BASIC). 

4. Programmi nell’area BASIC alta (in ge- 
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nere il loro indirizzo iniziale è maggiore o 
uguale a 32768). 

Ciascuna di queste categorie richiede 
un "trattamento" diverso per MLX, al fi- 
ne di posizionarlo in una zona della me- 
moria BASIC che non interferisca con il 
linguaggio macchina. In particolare quel- 
li del gruppo 1, essendo già in un'area di 
memoria completamente separata da 
quella BASIC in cui risiede MLX, non ri- 
chiedono alcuna POKE di riposiziona- 
mento per quest'ultimo. 

I programmi del secondo gruppo sono al- 
quanto rari (tra quelli da noi pubblicati 
c'è finora soltanto Ultrawedge) e, pur 
non interferendo con la memoria BASIC, 
richiedono una versione speciale di 
MLX, in grado di leggere il contenuto del- 
la RAM "nascosta” sotto la ROM del 
C64. Anche qui tuttavia non servono 
POKE di riposizionamento. 

I programmi del terzo gruppo richiedono 
MLX soltanto per la loro digitazione, 
mentre per il trasferimento su disco o su 
un'altra cassetta è sufficiente una nor- 
male istruzione SAVE, in quanto si com- 
portano come normali programmi 
BASIC. 

Se si deve inserire tramite MLX uno di 
questi programmi, si noterà come sia il 
programma da digitare (e che quindi vie- 
ne "creato", numero dopo numero, in me- 
moria) sia MLX partano esattamente dal- 
la stessa locazione 2049, corrisponden- 
te all’inizio dei programmi BASIC. 

Poiché il programma in linguaggio mac- 
china non si può spostare dalle sue lo- 
cazioni "naturali", sarà necessario spo- 
stare MLX in una zona di memoria più al- 
ta dell'ultima locazione occupata dai lin- 
guaggio macchina. 

I puntatori nelle locazioni 43 e 44 stabili- 
scono dove inizia la memoria BASIC. 
All’accensione del computer la locazio- 
ne 43 contiene uno zero, mentre la loca- 
zione 44 contiene il valore 8: cosa signi- 
fica? Per capirlo è sufficiente utilizzare 
la solita formulerà per convertire il valo- 
re dei puntatori nell'indirizzo "puntato": 

indirizzo^byte basso + byte alto*256 

avremo quindi, sostituendo i valori effet- 
tivi: 

indirizzo * PEEK (43)+PEEK (44)*256= 
0+8*256 = 2048 

Come mai 2048, quando invece diciamo 
sempre che i programmi in BASIC parto- 
no dalla locazione 2049? La spiegazio- 
ne è che il sistema operativo del C64 ri- 
chiede sempre uno zero come primo 
byte, all'inizio di un programma BASIC; 
la locazione 2048 conterrà quindi uno 


zero e la 2049 il primo byte del program- 
ma BASIC. 

Ritornando ora a MLX e al nostro pro- 
gramma in linguaggio macchina, suppo- 
niamo che quest’ultimo termini alla loca- 
zione 6234: potremo fare in modo che 
MLX venga caricato a partire dalla loca- 
zione 8192, ben al di sopra della zona 
occupata dal primo. Poiché 8192 diviso 
256 fa esattamente 32, e la locazione 
43 già contiene uno zero all'accensione 
del computer, dovremo digitare la se- 
guente linea subito dopo l'accensione 
del C64: 

POKE44,32:POKE32*256,0:NEW 

La prima POKE eleva il contenuto del 
puntatore 44 dal valore originario 8 a 
quello attuale di 32: applicando la formu- 
letta precedente avremo che l'indirizzo 
ora "puntato" è: 

indirizzo =PEEK(43)+PEEK(44)*256 = 
0+32*256 - 8192 

Quindi dopo la prima POKE il BASIC ini- 
zia dalla locazione 8192. La seconda 
POKE provvede a inserirvi lo zero ne- 
cessario ai sistema operativo, mentre la 
NEW provvede a resettare di conse- 
guenza anche gli altri puntatori. 

Caricando ora in memoria MLX, esso oc- 
cuperà le locazioni a partire dalla 8193, 
lasciando quindi completamente libero 
tutto lo spazio necessario al programma 
in linguaggio macchina. 

I programmi del quarto gruppo, infine, 
non interferiscono direttamente con 
MLX, ma con il contenuto delle sue va- 
riabili. Se un programma BASIC risiede 
nella parte bassa dell'area BASIC, le 
sue variabili risiedono nella parte alta: 
ciò significa che se non si prendono le 
opportune contromisure, alcuni byte del 
programma in linguaggio macchina ver- 
ranno sovrascritti dalle variabili utilizza- 
te da MLX. 

Se prima abbiamo spostato verso l'alto 
l'inizio della memoria BASIC, questa vol- 
ta dovremo sportarne verso il basso il 
punto finale. 

La memoria BASIC normalmente termi- 
na con la locazione 40959, e questo va- 
lore è controllato dai puntatori nelle loca- 
zioni 643 e 644. La modifica di questi 
puntatori, per essere accettata dal si- 
stema operativo, richiede inoltre una 
SYS a una routine di reset di sistema. 
Supponendo che il programma in lin- 
guaggio macchina parta dalla locazione 
32768, potremo ad esempio spostare 
verso il basso la cima della memoria BA- 
SIC fino alla locazione 32256 (come 
avrete notato, è sempre conveniente 
utilizzare multipli di 256!). Poiché 32256 


diviso 256 fa 126, daremo le seguenti 
istruzioni subito dopo aver acceso il 
C64: 

POKE643,0:POKE644,1 26:SYS58260 

La SYS58260 eseguirà il parziale reset, 
rivisualizzando la schermata iniziale 
con un numero di byte liberi congruente 
con la nuova cima della memoria BA- 
SIC. Potremo ora caricare normalmente 
MLX, con la certezza che non interferi- 
rà in alcun modo con le locazioni supe- 
riori alla 32256, dove si trova il program- 
ma in linguaggio macchina. 

Come si vede, la gestione della memoria 
del C64 (e di tutti i computer Commodo- 
re) è molto flessibile, e permette inter- 
venti diretti da parte dell’operatore per ri- 
configurare secondo necessità tutta la 
mappa di memoria. 

Rilocatore e riposizionamento 
della memoria BASIC 

Le due linee di POKE ora viste vengono 
ampiamente utilizzate anche nell'uso 
del programma "Rilocatore" pubblicato 
sul numero 2 di quest'anno, anche se la 
situazione è più complessa: mentre uti- 
lizzando MLX sono soltanto due i pro- 
grammi che devono risiedere contempo- 
raneamente in memoria, con il Rilocato- 
re sono ben tre. 

La sovraffollata memoria del C64 deve 
infatti ospitare lo stesso Rilocatore, il 
programma da rilocare e il programma ri- 
locato. 

Poiché il programma rilocato non esiste 
a priori, ma viene creato per azione del 
Rilocatore, bisognerà prevederne lo spa- 
zio occupato e modificare i puntatori in 
modo che esso rimanga libero. 
L'occupazione di memoria richiesta dal 
programma Rilocatore e da un program- 
ma da rilocare che inizia alla locazione 
X e termina alla locazione Y è la se- 
guente: 

1 . dalla locazione 2049 fino alla locazio- 
ne F, data dalla formula: 

F = 500+2049+(Y-X) 

si dovrà liberare la memoria per ospitare 
il programma rilocato (500 è un coeffi- 
ciente di sicurezza che tiene conto del- 
Paumentata lunghezza del programma ri- 
locato dovuta alla routine di trasferimen- 
to, alla SYS iniziale, eccetera). 

2. dalla locazione F+1 fino alla locazio- 
ne X (se X<40960) ci sarà lo spazio libe- 
ro per il Rilocatore e le sue variabili. 

Se X è maggiore di 40960, lo spazio per 
il Rilocatore andrà da F+1 fino a 40960. 
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3. dalla locazione X alla locazione Y ci 
sarà il programma in linguaggio macchi- 
na da rilocare. 

Come si vede, e salvo casi del tutto spe- 
ciali e infrequenti (che non esaminiamo 
per maggior chiarezza), il Rilocatore si 
deve sempre trovare in una zona centra- 
le di memoria, tra il programma rilocato e 
quello da rilocare. 

I valori da inserire nei puntatori 43 e 44 - 
che chiamiamo rispettivamente A e B - 
saranno dati da: 

B=INT((F+1 )/256) 

A=(F+1)-(B*256) 

e l'istruzione che riserva memoria per il 
programma rilocato sarà dunque: 

POKE43,A:POKE44,B:POKE 

(A+B*256),0:NEW 

Questa istruzione (che va data ovvia- 
mente prima di caricare in memoria il Ri- 
locatore) è sufficiente, se il programma 
da rilocare ha un indirizzo iniziale mag- 
giore o uguale a 491 52. 

In caso diverso (programma da rilocare 


con indirizzo iniziale minore di 40960) 
occorrerà, come detto, una seconda 
istruzione che abbassi la cima della me- 
moria. 

Il programma da rilocare inizia alla loca- 
zione X, quindi la memoria BASIC dovrà 
essere abbassata fino alla locazione X- 
1 . 

Con procedura analoga calcoliamo i va- 
lori A e B da attribuire ai puntatori nelle 
locazioni 643 e 644: 

B=INT((X-1 )/256) 

A=(X-1 )-(B*256) 

L'istruzione che abbassa la cima della 
memoria sarà quindi: 

POKE643,A:POKE644,B:SYS58260 

e andrà impartita subito dopo l'istruzio- 
ne precedente, che alza l'inizio della me- 
moria BASIC. 

Si noti che l'utilizzo di queste due istru- 
zioni, il cui effetto congiunto è quello di 
alzare l'inizio e abbassare la cima della 
memoria BASIC, porta logicamente a 
una diminuzione dello spazio BASIC di- 


pendente dai valori X e Y. 

Il Rilocatore sarà quindi in grado di rilo- 
care correttamente quei programmi in lin- 
guaggio macchina la cui lunghezza non 
sia così eccessiva da non lasciare in 
memoria uno spazio sufficiente per ospi- 
tare il Rilocatore stesso e le sue varia- 
bili. 

Memoria BASIC su misura 

Attraverso questa tecnica è possibile ri- 
servare memoria per qualsiasi tipo di uti- 
lizzo: dall'Immagazzinamento di dati per 
la costruzione di SPRITE a quello dei te- 
sti per un gioco di avventura (alcuni pro- 
grammatori usano infatti "pokare" i testi 
in un'area di memoria protetta, in modo 
che dall’esame del listato del program- 
ma non risulti intelligibile la risoluzione 
dell'avventura). 

Con un uso oculato di queste POKE è 
possibile avere in memoria più program- 
mi BASIC contemporaneamente, anche 
se saranno eseguibili soltanto uno alla 
volta, oppure eseguire delle "fusioni" di 
più programmi in un unico e lungo file. 

Le possibili applicazioni sono molteplici, 
e permettono di ottenere risultati di tutto 
rispetto in sede di programmazione. 
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Uno sguardo alla 
del C64 
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di J. Heilborn 

trad. e adatt. di E. Stefani 

Uno sguardo alla grafica del 

C64 

Quarta parte 

Dopo aver passato in rassegna, 
nelle precedenti puntate, le tec- 
niche di programmazione dei ca- 
ratteri e degli SPRITE, ci occu- 
piamo questa volta di un argo- 
mento altrettanto affascinante: 
la realizzazione delle scherma- 
te in alta risoluzione. 

Il terzo tipo di grafici che possono esse- 
re creati con il C64 è quello in alta risolu- 
zione: lo schermo viene definito come 
un unico blocco di memoria, ed ogni bit 
del blocco viene visualizzato sul video 
come un singolo punto. Accendendo o 
spegnendo i singoli bit di questo blocco 
di memoria, si possono creare disegni 
plottati pixel per pixel. 

Come lo schermo normale per la visualiz- 
zazione del testo, lo schermo in alta ri- 
soluzione è largo 40 caratteri per 25 ri- 
ghe in altezza. Tuttavia, nel modo in al- 
ta risoluzione (chiamato anche a mappa 
di bit) ogni posizione di un carattere non 
è semplicemente un singolo byte conte- 
nente il codice del carattere, bensì ogni 
locazione consiste di otto bit, che pos- 
sono essere settati diversamente l'uno 
dall’altro. Il numero di celle nello scher- 
mo a mappa di bit è esattamente quello 
dello schermo normale: 1000. 

Ogni cella può essere pensata come 
una griglia di 8 bit per 8, per un totale di 
64 bit. Ciò significa che è possibile indi- 
rizzare singolarmente un totale di 64000 
punti sullo schermo! 

La differenza principale tra il modo ad al- 


ta risoluzione e il modo testo normale è 
che nel secondo è possibile indirizzare 
singolarmente solo i pixel di ogni spazio- 
carattere (come nei caratteri program- 
mabili), mentre nel primo non si è assolu- 
tamente limitati dai singoli spazi-caratte- 
re, ma è come se si disponesse di un so- 
lo carattere grande quanto l'intero 
schermo. 

L'organizzazione della memoria 
nel modo in alta risoluzione 


I byte costituenti lo schermo in alta riso- 
luzione sono organizzati nella stessa 
maniera del modo testo. Questo tipo di 
organizzazione rende molto facili da pro- 
grammare linee di testo e qualche spe- 
ciale applicazione grafica, mentre crea 
qualche difficoltà nella programmazione 
di grafici a mappa di bit. 

Pensando lo schermo come una griglia, 
possiamo specificare un qualunque pun- 
to tramite le sue coordinate X ed Y. Im- 
maginate una griglia divisa in otto qua- 
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drati per otto: per definire un singolo 
quadrato all'interno della griglia possia- 
mo definire le sue coordinate X ed Y 
(che partono dal valore 0); ad esempio, 
il quadrato in posizione tre da sinistra e 
in posizione cinque dall’alto sarà defini- 
to dalla coppia di coordinate 2,4. 

Possiamo accedere ai singoli punti en- 
tro ogni cella 8 per 8 dello schermo più o 
meno nel modo descritto sopra. Tutta- 
via, dal momento che lo schermo è orga- 
nizzato con una sequenza di celle nume- 
rate per riga, dobbiamo innanzi tutto sta- 
bilire quale delle 1000 celle contiene il 
bit che vogliamo modificare. Solo allora 
potremo individuare il bit all'interno della 
cella. 

Ricordate che lo schermo è suddiviso 
ini 000 celle di 8 per 8 bit, organizzate in 
40 colonne per 25 righe. Cerchiamo ora 
di trovare la cella che contiene il punto 
a 55 pixel dal bordo sinistro dello scher- 
mo e a 43 pixel dal bordo superiore. Con 
il nostro sistema di coordinate X,Y l'origi- 
ne è definita come il pixel nell'angolo su- 
periore sinistro dello schermo, che avrà 
quindi coordinate 0,0. Il pixel alla sua de- 
stra avrà dunque coordinate 1,0, men- 
tre quello subito sotto di esso sarà defi- 
nito dalle coordinate 0,1 . 

Dal momento che stiamo cercando una 
cella 8 per 8, occorre dividere sia la 
coordinata orizzontale che quella verti- 
cale per otto, al fine di ottenere la posi- 
zione della cella (il resto della divisione 
viene per il momento ignorato). 55 divi- 
so 8 è uguale a 6 (più un resto), quindi la 
coordinata X della cella è 6. 43 diviso 8 
è uguale a 5 (più un resto), quindi la 
coordinata Y della cella è 5. Il bit 55,43 
sarà dunque nella cella 6,5. Come si fan- 
no questi calcoli in un programma? Que- 
sta linea pensa a tutto: 

CX=INT(BX/8):CY=INT(BY/8) 

Se BX e BY sono le coordinate X ed Y 
del bit, eseguita questa linea le variabili 
CX e CY conterranno rispettivamente le 
coordinate X ed Y della cella alla quale 
quel bit appartiene. 

Come localizzare le celle di me- 
moria e i bit relativi 

Sfortunatamente non è sufficiente loca- 
lizzare le celle nello schermo. Occorre 
anche trovare il byte ad esse corrispon- 
dente nella memoria del C64. Abbiamo 
visto che ogni cella consiste di otto 
byte, proprio come la configurazione di 
un carattere nel set. L’indirizzo di par- 
tenza di una cella (che è l'indirizzo del 
byte più alto della cella) è sempre esat- 
tamente superiore di 8 byte rispetto al- 


l'indirizzo di partenza della cella imme- 
diatamente alla sua sinistra, ed è esatta- 
mente superiore di 320 byte rispetto al- 
l’indirizzo di partenza della cella imme- 
diatamente sopra di essa. 

Se l'indirizzo di partenza della mappa di 
bit è immagazzinato nella variabile SB, 
l’indirizzo di partenza della cella 0,0 sa- 
rà SB+0, quello della cella 1,0 sarà 
SB+8, quello della 0,1 sarà SB+320, e 
così via. Così, per calcolare l'indirizzo di 
partenza di una cella della mappa di bit 
si userà la formula: 

CA=8*lNT(BX/8)+320*INT(BY/8) 

dove BX e BY sono le coordinate del bit 
e CA è l’indirizzo di partenza, nella me- 
moria del C64, della cella contenente il 
bit. Verifichiamolo con il bit 55,43 consi- 
derato nell’esempio precedente, e otter- 
remo 1648. La cella contenente il bit di 
coordinate 55,43 partirà perciò dalla lo- 
cazione di memoria SB+1648. 

Abbiamo quindi calcolato l'indirizzo di 
partenza della cella. Ora dobbiamo però 
trovare quale sia il byte contenente il bit 
cercato all'interno della cella. Dal mo- 
mento che i byte nelle celle sono dispo- 
sti uno sopra l’altro, il byte cercato sarà 
sempre dato dal resto che abbiamo pre- 
cedentemente trascurato dividendo per 
8 la coordinata Y. Sfortunatamente il BA- 
SIC esprime sempre il resto di una divi- 
sione come numero frazionario: così, 
per ottenere da BASIC il resto come nu- 
mero intero occorre sempre seguire que- 
sto procedimento: 

resto = numero - divisore * INT(numero / 
divisore) 

Ritornando al bit 55,43 dell'esempio, 
avremo che 43 diviso per 8 dà come ri- 
sultato 5; il resto si otterrà moltiplicando 
5 per 8 (=40) e sottraendolo dal numero 
originale: 43-40=3. Il resto sarà dunque 
3. Ovviamente, disponiamo di un compu- 
ter e sarà lui a dover eseguire tutti que- 
sti calcoli. Vediamo come. 

La variabile CB conterrà l'indirizzo de! 
byte cercato. La variabile R definisce il 
resto, mentre la variabile CV definisce 
la posizione verticale della cella: 

CV=INT(BY/8);R=BY8*CV:CA= 

8*INT(BX/8)+320*CV:CB=CA+R 

In una sola linea vengono fatti parecchi 
calcoli: esaminiamo passo-passo il pro- 
cedimento. Per prima cosa si calcola 
CV, la posizione verticale della cella, 
prendendo la parte intera di BY/8. Quin- 
di si calcola R, il resto, sottraendo da 
BY il numero 8*CV. L’indirizzo di parten- 


za della cella, CA, si calcola come abbia- 
mo fatto precedentemente, con la diffe- 
renza che ora CV equivale al risultato 
dell'operazione INT(BY/8). Infine si ag- 
giunge R a CA per ottenere l'indirizzo 
del byte contenente il nostro bit. Pren- 
dendo il bit 55,43 dell’esempio, si otter- 
rà come indirizzo del byte SB+1 651 . 

La variabile CB contiene ora l'indirizzo 
del byte (naturalmente relativo a SB). 
Dobbiamo adesso trovare, all'interno 
del byte, il bit cercato. Fortunatamente, 
possiamo sfruttare semplicemente il re- 
sto della divisione BX/8 per trovare la 
posizione del bit. Usiamo la variabile BT 
per contenere la posizione del bit e la va- 
riabile CH come valore orizzontale tem- 
poraneo (nello stesso modo in cui abbia- 
mo usato CV come valore verticale tem- 
poraneo): 

CV=INT(BY/8):R=BY-8*CV:QH= 

)NTfBX/8ì:BT=BX-8*CH :CA= 

8*CH+320*CV:CB=CA+R 

La parte sottolineata è quella che prov- 
vede a calcolare BT, la posizione del 
bit. Si noti che CB, essendo usata per 
trovare l'indirizzo, è sempre la stessa 
per qualunque bit si voglia cercare nel 
byte. Ora che abbiamo calcolato la posi- 
zione del bit, vediamo come sfruttarla. 
La posizione del bit è un numero da 0 a 
7 che rappresenta i bit in un byte nell’or- 
dine seguente: 

Posizione dei bit: 0 1 2 3 4 5 6 7 

Usualmente tuttavia i bit vengono nume- 
rati in senso inverso: 

Numerazione usuale: 7 6 5 4 3 2 1 0 

C'è una buona ragione per questo cam- 
biamento: se il bit 7 (numerazione usua- 
le) è acceso, ha un valore di 128. Que- 
sto numero può essere espresso come 
potenza di 2 (2 A 7=128). Allo stesso mo- 
do il bit 6 vale 64 (2 A 6=64). 

Il nostro procedimento di calcolo della 
posizione dei bit ci fornisce dei numeri 
che sono in ordine opposto a quello 
usuale. Fortunatamente essi possono 
essere facilmente convertiti nell'ordine 
usuale, sottraendo da 7 il numero trova- 
to; a questo scopo basta porre BT=7- 
BT, e il valore che vogliamo usare dovrà 
essere espresso da 2 A BT. 

Attivare i pixel 

Ora siamo pronti per disegnare un punto 
sullo schermo. Se lo schermo è pulito, 
possiamo farlo facilmente: 

POKESB+CB,2 A BT 
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Tuttavia, se esistono già sullo schermo 
dei punti che non desideriamo modifica- 
re, occorre stare attenti: dobbiamo atti- 
vare il bit nel byte di indirizzo SB+CB 
senza però modificare gli altri bit conte- 
nuti nello stesso byte. Infatti, potrebbe 
essere che il bit che stiamo accenden- 
do sia già acceso: se si stanno traccian- 
do linee, ad esempio, ciò può accadere 
molto frequentemente - dove una nuova 
linea ne interseca una già tracciata pre- 
cedentemente - e il programma cerche- 
rà di accendere un bit già acceso. 

Per evitare questi inconvenienti accen- 
deremo i bit usando l'operatore logico 
OR. Ricordiamo che l'operatore OR ha 
effetto sui bit solo se questi sono già ac- 
cesi. Il comando per accendere i bit 
avrà quindi questa forma: 

POKESB+CB,PEEK(SB+CB)OR2 A BT 

L'effetto di questa istruzione sarà quel- 
lo di andare a vedere se il bit è già acce- 
so e, se così fosse, lasciarlo inalterato. 

Disattivare i pixel 

Spegnere un bit è un procedimento del 
tutto simile, tranne che invece di porre il 
bit a 1 desideriamo porlo a 0. Useremo 
quindi l'operatore logico AND con il com- 
plemento di 2 A BT. Il complemento di 
2 A BT è il numero binario definito da un 1 
in tutte le posizioni del byte, tranne in 
quella in cui vogliamo disattivare il bit. 
Troviamo il complemento sottraendo da 
255 il valore di 2 A BT. Per spegnere un 
bit senza disturbare il resto del byte è 
sufficiente usare questa istruzione: 

POKESB+CB,PEEK(SB+CB) 

AND255-2 A BT 

Un modo più veloce di operare sui singo- 
li bit è quello di evitare l'elevamento a po- 
tenza ( A ) e la sottrazione da 255 e da 7, 
ponendo durante l'esecuzione del pro- 
gramma i valori corretti dei bit in appositi 
vettori. Useremo il vettore NG(n) per 
contenere i valori da usare per spegne- 
re i bit e il vettore PS(n) per contenere i 
valori da usare per accendere ibit: 

10 DIMNG (7 ) f PS ( 7 ) :GOSUB5000 
5000 FORI=0TO7:BT=7- 

I : PS (I) =2 A BT:NEXT 
5010 FORI=0TO7 : NG { I } =255- 
PS { I > :NEXT: RETURN 

Una volta inseriti nel programma questi 
vettori un bit può essere acceso più 
semplicemente con: 

PO KESB+CB,PEEK(SB+CB) 

ORPS(BT) 

E può essere spento con: 


POKESB+CB,PEEK(SB+CB) 

ANDNG(BT) 

Per velocizzare ulteriormente le opera- 
zioni è possibile sostituire l'espressione 
SB+CB con una singola variabile che 
chiameremo AD: 


AD=SB+CB:POKEAD,PEEK(AD) 

ORPS(BT) 


Ecco ora un programma che compren- 
de tutte le operazioni finora esaminate. 
Il programma vi chiederà le coordinate 
X,Y del punto sullo schermo 
(0<=X<=319, 0<=Y<=199), quindi mo- 
strerà l'indirizzo relativo del byte e i valo- 
ri da inserire nella POKE per disegnare 
o cancellare il punto. 


10 DIMNG ( 7) , PS ( 7 ) : GOSUB5000 
100 PRINT"X (ORIZZONTALE) " ; : IN 
PUTBX 

110 IFBX<0THENBX=0 
120 IFBX>3 1 9THENBX=3 1 9 
130 PRINT"Y (VERTICALE) : 
INPUTBY 

140 IFBY<0THENBY=0 
150 IFBY>199THENBY=199 
160 GOSUB200 

170 PRINT" INDIRIZZO=SB+" ; CB 
180 PRINT"DISEGNA: POKEAD, PEEK 
( AD ) OR " ; P S (BT) 

190 PRINT M CANCELLA : POKEAD, 

PEEK (AD) AND" ; NG (BT) : 

PRINT : GOTOIOO 

200 CV=INT(BY/8) :R=BY-8*CV: 
CH=INT(BX/8) :BT=BX-8*CH: 
CA=8 *CH+320 *CV : CB=CA+R 
210 RETURN 

5000 FORI=0TO7 : BT=7- 

I :PS (I)=2 A BT:NEXT 
5010 FORI=0TO7 : NG { I ) =255- 
PS (I) :NEXT: RETURN 

Attivare II modo In alta risolu- 
zione 


Per far passare il C64 dal modo testo al 
modo in alta risoluzione è sufficiente 
una singola POKE: 

POKE53265,PEEK(53265)OR32 

Dopo questa istruzione si vedrà lo 
schermo riempirsi di caratteri strani e di 
vari colori, senza alcun senso appa- 
rente. 

Normalmente il C64 prende le informazio- 
ni da visualizzare sul video da tre parli 
della memoria: la memoria di schermo (u- 
sualmente nelle locazioni da 1024 a 
2023), il generatore di caratteri su ROM 
e la memoria colore, che controlla il colo- 
re dei caratteri e del fondo. Se si passa 
al modo in alta risoluzione, le informazio- 
ni per la gestione del video vengono rac- 
colte da sezioni diverse di memoria. Ciò 
che viene visualizzato in alta risoluzio- 
ne è contenuto in un blocco di memoria 
di 8000 byte, detto mappa di bit. I colori 
vengono invece presi dalla memoria di 
schermo (usualmente nelle locazioni 
1024-2023). Modificando i valori imma- 


gazzinati nella memoria di schermo, è 
possibile cambiare i colori visualizzati in 
alta risoluzione per creare un insieme 
più omogeneo: 

FORR=1 024TO2023:POKER, 

230:NEXT 

Dopo aver eseguito questa linea il no- 
stro schermo diventerà il vecchio e fami- 
liare schermo blu con bordo azzurro 
(con un messaggio multicolore: il 
READY). Per maggiori informazioni sul 
modo di funzionare dei caratteri multico- 
lori vedi le precedenti puntate. Per il mo- 
mento diamo un'altra occhiata a ciò che 
si vede sullo schermo: il set caratteri è 
visualizzato nella sua metà inferiore e 
nella metà superiore sono visualizzati al- 
cuni punti tremolanti. Cosa significa? 

Ciò che stiamo vedendo sono i primi 
8000 byte della memoria del C64. L'an- 
golo superiore sinistro dello schermo vi- 
sualizza la locazione 0, mentre l'angolo 
inferiore destro visualizza la locazione 
7999. I byte tra 4096 e 7999 visualizza- 
no buona parte del set caratteri. Ciò av- 
viene perchè, malgrado il set caratteri 
sia allocato tra 53248 e 57343, il chip 
VIC-II non potrebbe usarlo se fosse al 
di fuori del banco da 1 6 Kbyte che sta in- 
dirizzando attualmente. Per ovviare a 
ciò il sistema operativo del C64 provve- 
de a fare in modo che il chip VIC-II veda 
il set caratteri come allocato tra 4096 e 
8191 mentre sta indirizzando il banco 0, 
che è il banco di 16 Kbyte normalmente 
indirizzato. I punti nella parte alta dello 
schermo sono parte del sistema operati- 
vo del computer, mentre quelli tremolan- 
ti sono dei bit nella memoria che vengo- 
no posti alternativamente a 1 e a 0 dal si- 
stema operativo per i suoi scopi di ge- 
stione del computer. In un certo senso, 
stiamo guardando i "pensieri" del C64. 
Una parte dello schermo visualizza del- 
le barrette verticali e parallele: rappre- 
sentano le locazioni da 1024 a 2023, 
che contengono il valore 230 prima im- 
magazzinato con una POKE. 

Pulire lo schermo ad alta risolu- 
zione 

Indagare sui misteri della visualizzazio- 
ne di parti di memoria RAM o ROM 
tramite il VIC-II è molto interessante, 
ma non ci serve certo per creare disegni 
grafici in alta risoluzione. Per fare ciò, in- 
vece, occorre per prima cosa pulire lo 
schermo. Naturalmente, non è sufficien- 
te premere come al solito i tasti SHIFT e 
CLR/HOME, in quanto questa funzione 
è operativa solo con lo schermo norma- 
le, in modo testo. Provate ugualmente a 
premere questi tasti, e vedrete lo scher- 
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mo passare al nero su rosso senza per 
altro cancellarsi. Ciò avviene perchè la 
memoria di schermo, normalmente can- 
cellata inserendo nelle sue locazioni il 
valore 32 (codice dello spazio), control- 
la ora solo il colore, e quindi solo que- 
st’ultimo viene modificato, lasciando 
inalterata la mappa di bit. 

Per pulire lo schermo occorre inserire 
degli 0 negli 8000 byte usati per la map- 
pa di bit. Tuttavia, attualmente la mappa 
di bit risiede in una zona parzialmente 
occupata dal sistema operativo, e que- 
sta operazione provocherebbe il blocco 
del computer. Occorre quindi spostare 
la mappa di bit in un'altra zona di memo- 
ria. Dal momento che lo spazio indirizza- 
bile dal chip VIC-II è lungo 16 Kbyte, e 
la metà di questo spazio ci serve per la 
mappa di bit, abbiamo una sola possibili- 
tà: usare la seconda metà di questo 
blocco, da 81 92 a 1 6384. 

Muovere lo schermo ad alta riso- 
luzione 

Per muovere lo schermo ad alta risolu- 
zione bisogna modificare il terzo bit del 
registro 54272 nel chip VIC-IL Se que- 
sto bit è 0, la mappa di bit si troverà nel- 
la metà inferiore del blocco video, men- 
tre se questo bit è 1, la mappa di bit si 
troverà nella sua metà superiore. Ecco 
una routine che fa passare il C64 nel mo- 
do in alta risoluzione, muove la mappa 
di bit nella metA superiore del blocco di 
memoria da 1 6 Kbyte e la pulisce: 

10 POKE53265 , PEEK { 53265 ) OR32 
20 POKE 5 32 72 , PEEK ( 53272 ) OR8 
30 FORR=8 192T016191 
4 0 POKER, 0:NEXT 
50 FORR= 1024 T02 023 
60 POKER, 230 :NEXT 

Eseguendo questa routine, vedrete ini- 
zialmente lo schermo riempirsi con bloc- 
chi colorati. Quindi questi saranno so- 
stituiti dal familiare fondo blu. Alla fine 
dell'esecuzione della routine apparirà 
sullo schermo un gruppo di blocchi colo- 
rati: è il messaggio READY contenuto 
nella memoria di schermo, la quale ora 
gestisce i colori. Come evitarlo? 

Al solito, è sufficiente mantenere il pro- 
gramma in ciclo, in modo che non venga 
mai visualizzato il messaggio READY. 
Aggiungete alla routine questa linea: 

70 GOTO70 

Combinando la routine precedente con 
un'altra simile a quella usata per calcola- 
re le coordinate X ed Y di un singolo 
punto, siamo in grado di creare i primi di- 
segni in alta risoluzione sul C64. Que- 
sta routine consente di disegnare in alta 
risoluzione usando i tasti cursore. Verrà 


attivato e pulito automaticamente lo 
schermo in alta risoluzione - ci vogliono 
circa 20 secondi - quindi il computer 
aspetterà che venga premuto uno dei ta- 
sti cursore. 


10 PRINT" { CLR} { BLU } " ; : X= 

1 60 : Y=100 

20 FORR=1024TO2023 :POKER, 

230 : NEXT 

30 POKE53272 , PEEK {53272} OR8 : 

POKE53265, PEEK (53265) OR32 
40 FORR=8 192T01 6383 : POKER, 0 : 
NEXT 

50 GETA$ : IFA$=" "THEN50 
60 IFA$=" { SU } ”THENY=Y-1 : 
GOTOllO 

70 IFA$=" {GIU ' } "THENY=Y+1 : 
GOTOllO 

80 IFA$=" { DES } "THENX=X+1 : 
GOTOllO 

90 IFA$= n { SIN } "THENX=X-1 : 

GOTOllO 
100 GOTO50 

110 P=(8192+(INT(Y/8) ) *320+ 

( INT (X/8 ) ) *8+ (YAND7) ) 

120 POKEP , PEEK { P ) OR INT (2 A (7- 
( ( ( INT (X) / 8 ) -IN 
T ( INT (X) / 8 } ) *8) ) ) 

130 GOTO50 


La linea 1 0 cancella lo schermo e pone il 
punto di partenza del plottaggio al cen- 
tro dello schermo (X=1 60 e Y=1 00). La li- 
nea 20 pone il colore di sfondo a blu scu- 
ro e quello delle linee plottate ad azzur- 
ro (per maggiori dettagli vedi le puntate 
precedenti). La linea 30 entra in modo 
ad alta risoluzione e muove la mappa di 
bit nella metà superiore del blocco di me- 
moria da 16 Kbyte. 

La linea 40 pulisce la mappa di bit. La li- 
nea 50 legge il tasto premuto e quindi ag- 
giorna il valore delle coordinate. 

Le linee 110 e 120 accendono il punto 
sullo schermo e la linea 130 rimanda alla 
linea 50 di lettura del tasto premuto. 


I grafici In alta risoluzione 


L'alta risoluzione permette di avere un 
controllo bit per bit di tutto lo schermo, e 
non solo di un singolo carattere o di un 
singolo SPRITE. Ciò rende possibile 
creare disegni estremamente elaborati, 
ma rende più complesse le procedure 
da seguire per ottenerli. Un carattere è 
composto da 64 bit, uno SPRITE da 504 
bit, lo schermo in alta risoluzione è com- 
posto da 64000 bit e richiede quindi la di- 
sposizione di un intero blocco di memo- 
ria di 8000 byte: la metà esatta di quan- 
to possa gestire il chip VIC-II. 


I colori in alta risoluzione 


Come viene gestito il colore nello scher- 
mo ad alta risoluzione? Lo schermo trae 
le forme visualizzate dalla mappa di bit, 
un blocco di memoria di 8000 byte che 
dobbiamo definire quando entriamo nel 
modo ad alta risoluzione. Ciò libera mi- 
gliaia di byte della memoria di schermo 


che inizia alla locazione 1024. Questa 
zona di memoria viene ora usata per 
controllare individualmente i colori della 
mappa di bit. La solita memoria colore in 
55296-56319 non viene usata. Ogni 
byte della memoria di schermo corri- 
sponde a una cella (blocco dì 8 byte) del- 
la mappa di bit. Al contrario della memo- 
ria colore, che dispone solo dei nybble 
bassi (bit da 0 a 3), la memoria di scher- 
mo possiede 8 bit per ogni byte. Dal mo- 
mento che occorrono solo 4 bit per con- 
tenere il valore dei colore (da 0000 a 
1 1 1 1 , o da 0 a 1 5 in decimale), ogni loca- 
zione della memoria di schermo può con- 
trollare due colori. E' esattamente così 
che il C64 gestisce i colori in modo ad al- 
ta risoluzione. 

Il nybble alto (i quattro bit di sinistra) di 
ogni locazione controlla il colore di pri- 
mo piano delle celle (cioè quello dei bit 
posti a 1), mentre il nybble basso con- 
trolla il colore di fondo di ogni cella (quel- 
lo dei bit posti a 0). In altre parole, per 
ogni cella della mappa di bit esiste un 
byte che controlla sia il colore di primo 
piano che quello di fondo della cella. Se 
il valore del byte è 11010110 (decimale 
214), il nybble alto 1101 controlla il colo- 
re di primo piano, mentre il nybble basso 
0110 controlla quello di fondo. In que- 
sto caso i colori di primo piano e di fon- 
do sarebbero rispettivamente 13 e 6: 
verde chiaro e blu. 

Per mettere il valore corrispondente al 
verde chiaro 13 (binario 1101) in un 
nybble alto è sufficiente moltiplicarlo 
per 1 6. Per regolare una cella su un colo- 
re di primo piano verde chiaro e un colo- 
re di fondo verde, si userà questa istru- 
zione: 

POKESM,5+1 6*3 
La formula generale è: 

POKE memoria di schermo, fondo 

+16*primo piano 

Per vedere questi concetti tradotti in 
pratica ecco una routine che crea uno 
schermo a mappa di bit diviso in tre par- 
ti. La parte alta consiste in punti alterna- 
tivamente accesi e spenti, che miscele- 
ranno il colore di primo piano con quello 
di fondo. La parte centrale è formata da 
punti spenti, in modo che vi sia visualiz- 
zato solo il colore di fondo. La parte bas- 
sa consiste di punti tutti accesi che mo- 
strano il colore di primo piano. 

10 POKE 5 32 72, 2 9 : POKE532 65, 59 : 

POKE56576, 198 : A=1 
20 FORR=17408TO18407POKER, A: 

NEXT 

30 FORR=24 57 6T027 135STEP2 
40 POKER, 85 : POKER + 1, 170 : NEXT 
50 FORR=27 13 6T0300 1 5 : 
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POKER, 0: NEXT 
60 FORR=30016TO32575 : 

POKER, 255 :NEXT 
70 FORM=0TO255 

80 FORR=174 08T018407 : POKER, M : 

NEXT 
90 NEXT 

* 

Il programma visualizzerà tutte le 256 
combinazioni di colori. Potete vedere co- 
me i vari colori si miscelano sullo 
schermo. 

Il modo multicolore 

Mentre è possibile creare nuovi diversi 
colori con la tecnica appena vista della 
miscelazione, non è tuttavia possibile 
avere più di due colori in un singolo ca- 
rattere o in una singola cella. Ciò signifi- 
ca che, mentre la risoluzione dei nostri 
disegni può arrivare al singolo bit o pi- 
xel, la risoluzione del colore arriva al 
massimo a otto bit per otto: non certo 
un gran risultato! 

Il modo multicolore, disponibile sia in mo- 
do testo che in modo ad alta risoluzio- 
ne, risolve il problema, permettendo di 
avere fino a quattro colori per ogni carat- 
tere o cella. C’è un prezzo da pagare, 
tuttavia: la risoluzione grafica si dimez- 
za in senso orizzontale (un punto sarà 
quindi largo due pixel), mentre rimane in- 
variata in senso verticale. I caratteri 
standard, una volta abilitato il modo mul- 
ticolore, saranno per questo motivo mol- 
to poco leggibili; se si desiderano quindi 
disegni precisi e testo ben leggibile, è 
da preferirsi il modo standard. Invece, 
per certi set di caratteri ridefiniti o per 
schermate molto colorate, il modo multi- 
colore testo e il modo multicolore in alta 
risoluzione forniranno un'alternativa ec- 
cellente. 

Sia nel modo testo che nel modo in alta 
risoluzione, i caratteri od i disegni sono 
stati formati con l’uso di singoli bit acce- 
si o spenti: un 1 rappresenta un punto 
nel colore di primo piano, e uno 0 rappre- 
senta un punto nel colore di sfondo. L'u- 
sare un solo bit per definire un punto per- 
mette solo due possibili colori contempo- 
raneamente. Il modo multicolore, inve- 


ce, non usa un singolo bit per una istru- 
zione di colore, ma ne usa una coppia. 
Ne! modo standard un singolo byte com- 
prende otto istruzioni di colore acceso- 
spento. 

Nel modo multicolore ogni byte compren- 
de solo quattro istruzioni di colore, ma 
ognuna di esse è lunga due bit. Pensa- 
te ad ogni byte come composto da quat- 
tro coppie: 10 10 10 10. Ogni coppia di 
bit ha quattro possibili valori: 00, 01, 10 
eli. Una volta attivato il modo multico- 
lore il chip VIC-II legge i byte come grup- 
pi di quattro coppie di bit invece che co- 
me semplici otto bit. 

In ogni caso, l'uso delle coppie di bit 
crea un altro problema: ci sono ora solo 
quattro istruzioni colore per byte invece 
di otto. Abbiamo raddoppiato il numero 
dei colori disponibili, ma dimezzato il nu- 
mero di punti che possono essere con- 
trollati singolarmente. Ogni coppia di bit 
in una certa configurazione controlla 
ora due pixel invece di uno soltanto, 
mentre ogni byte controlla ancora otto 
pixel sullo schermo. Ciò significa che la 
risoluzione orizzontale è stata dimezza- 
ta, mentre quella verticale è rimasta inal- 
terata. Un punto sullo schermo sarà dun- 
que alto un pixel e largo due. 

Il modo multicolore a mappa di bit è abili- 
tato attivando sia il modo a mappa di bit 
che il modo multicolore: 

POKE53265,PEEK(53265)OR32:POKE 
53270,PEEK(53270)OR1 6 

La mappa di bit è formata da celle di 8 
byte, esattamente come nel modo in al- 
ta risoluzione. Ogni byte della mappa è 
trattato come insieme di quattro coppie 
di bit, ognuna delle quali controlla un 
doppio punto sullo schermo, come nel 
modo testo multicolore. Riassumiamo in- 
fine i due passi fondamentali per l'utiliz- 
zo del modo multicolore ad alta risolu- 
zione: 

* Assegnare i colori : in questo caso le 
assegnazioni dei colori sono un po' più 
complesse. Il colore di fondo (coppie di 

bit 00) per l'intero schermo della mappa 

* 


di bit è tratto dalla locazione 53281 : il 
colore di fondo non può essere assegna- 
to individualmente per ogni cella. 

I colori di primo piano (coppie di bit 11) 
vengono letti dalla memoria colore 
(55296-56319) : tutti e 1 6 i colori sono di- 
sponibili in ogni locazione e il modo multi- 
colore è abilitato per ogni cella. 

Gli altri due colori sono assegnati indivi- 
dualmente nella memoria di schermo, un 
byte per ogni cella della mappa di bit. Il 
nybble alto controlla le coppie di bit 01, 
mentre il nybble basso controlla le cop- 
pie di bit 10. 

* Regolare le coppie di bit all'interno del - 
la mappa : vi accorgerete rapidamente 
che le routine usate per disegnare in mo- 
do standard ad alta risoluzione danno ri- 
sultati alquanto strani in modo multicolo- 
re a mappa di bit. La risoluzione orizzon- 
tale è ora dimezzata e le linee (in partico- 
lare le diagonali o le linee curve) saran- 
no molto meno precise e definite, e cam- 
bieranno anche i colori visualizzati. Il si- 
stema migliore per imparare a program- 
mare in questi modi grafici è sperimenta- 
re. Probabilmente i modi grafici di uso 
più complesso sono quelli a mappa di 
bit, dal momento che richiedono una no- 
tevole manipolazione di numeri binari. I 
modi testo sono molto più semplici da 
programmare e da usare. Disponendo di 
un editor di caratteri, troverete facile 
creare complessi disegni: potete ridefini- 
re interi set di caratteri e diversi modi te- 
sto, quindi imparare ad usarli direttamen- 
te da tastiera. 

Con questo abbiamo concluso il nostro 
ideale viaggio all'Interno del complesso 
modo dei principali modi grafici del C64. 
Alcune tecniche di programmazione, co- 
me in particolare queste relative al mo- 
do in alta risoluzione a mappa di bit, non 
sono certamente facili né di immediata e 
perfetta comprensione per chi non sia 
un buon programmatore; consigliamo 
quindi di sperimentare quanto suggerito 
in queste puntate, per passare delle ore 
divertenti imparando con il proprio com- 
puter. 
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Ecco un programma per automa- 
tizzare il caricamento dei propri 
file su disco e per eliminare il 
problema di dover ricordare la 
SYS di attivazione dei program- 
mi in linguaggio macchina. 

Autodisk è un programma che, una vol- 
ta salvato su ciascuno dei vostri di- 
schetti, vi permetterà di disporre di un 
comodo menu di selezione, compren- 
dente tutti i file presenti sul dischetto 
nel drive, attraverso il quale potrete cari- 
carli e lanciarli automaticamente. 

Dopo aver attivato Autodisk ci sarà una 
breve attesa, necessaria a leggere il 
contenuto della directory del disco e a 
inserirne il contenuto in un apposito vet- 
tore; verrà quindi elencato sul video il 
contenuto del disco, con ciascun file 
contraddistinto da un numero progres- 
sivo. 

Sarà allora sufficiente premere il tasto 
corrispondente al numero del program- 
ma che si desidera caricare, per fare in 
modo che Autodisk ne legga l'indirizzo 
iniziale e lo carichi in memoria, attivan- 
dolo automaticamente. 

Se l'indirizzo iniziale del file è diverso 
da 2049 (inizio dell'area BASIC), Auto- 
disk provvede ad eseguire la SYS di atti- 
vazione, seguita da un'istruzione NEW, 
mentre se l'indirizzo di caricamento è 
proprio 2049, verrà impartito un sempli- 
ce RUN, 

Se non si desidera caricare nessuno dei 
programmi presenti sul dischetto, sarà 
sufficiente premere RETURN alladoman- 
da di Autodisk, per passare così all'esa- 
me di un nuovo disco. 


Alcune precauzioni 

La tecnica dell "'overla/' di programmi 
BASIC nei computer Commodore richie- 
de che il programma caricatore debba 
essere più lungo del programma carica- 
to: in caso contrario il secondo program- 
ma viene caricato soltanto parzial- 
mente. 

Autodisk "inganna" il computer attraver- 
so la linea 230, che sposta i puntatori in 


modo da creare una falsa occupazione 
di memoria, maggiore di quella effettiva- 
mente richiesta dal programma. Il valore 
64 delle tre istruzioni POKE di questa li- 
nea significa che la massima lunghezza 
dei programmi caricabili da Autodisk è di 
circa 64 blocchi su disco. 

Questo valore è più che sufficiente nel- 
la maggior parte dei casi: se tuttavia si 
desiderasse caricare file più lunghi, è 
possibile modificare questi tre valori 
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con il massimo numero di blocchi da cari- 
care. Si tenga tuttavia presente che de- 
ve rimanere lo spazio in memoria per le 
variabili e i vettori sia di Autodisk che 
del programma caricato, pena un mes- 
saggio di "OUT OF MEMORY” al termine 
del caricamento. 

A causa di questa "finta" occupazione 
di memoria, è opportuno non risalvare 
mai su disco un programma caricato da 

Autodisk 


Autodisk, in quanto esso verrebbe sal- 
vato insieme a tutta la memoria fino alla 
locazione 1 6384 (64*256=1 6384) o mag- 
giore, se si modificano i valori in linea 
230. Si utilizzi quindi Autodisk soltanto 
per caricare e attivare i programmi su di- 
sco che non richiedono ulteriori salva- 
taggi. 

Autodisk non è inoltre compatibile con 
quei programmi che modificano i punta- 


tori 55 e 56 (ad esempio Shifter su que- 
sto numero della rivista), nè con i pro- 
grammi in linguaggio macchina che han- 
no una SYS di attivazione diversa dal- 
l’indirizzo iniziale (ad esempio Ultrawe- 
dge).* 

Naturalmente, Autodisk non può carica- 
re file sequenziali e relativi, ma soltanto 
file programma. 


100 REM AUTODISK - MCG 1986 : rem 181 

110 REM UTILIZZARE QUESTA UTILITY SOLTANT 
0 PER CARICARE I PROGRAMMI : rem 28 
120 REM NON RI SALVARE MAI PROGRAMMI CARIC 
ATI ATTRAVERSO AUTODISK! : rem 96 

130 REM ROUTINE DI AUTOSTART PER I PROGRA 
MMI IN LINGUAGGIO MACCHINA : rem 12 9 
140 POKE198, 0 : IFH+LO0THENPRINT" {CLR}NEW M 

: rem 113 

150 IFH+LO0THENPRINT" { 2 GIU 1 ) SYS"H+L : PO 
KE198, 3 ;POKE631, 19 : POKE632 , 13 : POKE633 
,13: END : rem 171 

160 REM INI ZIALIZZAZ IONE E POSIZIONAMENTO 
DEI PUNTATORI PER POTER CARICARE 

: rem 21 

170 REM PROGRAMMI LUNGHI FINO A 16 KBYTE 
(CIRCA 64 BLOCCHI SU DISCO) : rem 111 

180 POKE532 80 , 0 : POKE5328 1, 0 : POKE53272 , 2 1 : 

POKE646, 1 :CLR : rem 106 

190 REM PER CARICARE PROGRAMMI DI LUNGHE Z 
ZA MAGGIORE, INSERIRE NELLE POKE DELL 
A :rem 107 

200 REM LINEA SEGUENTE IL MASSIMO VALORE 
DI BLOCCHI CARICABILE. VALORI TROPPO 

: rem 213 

210 REM ALTI POSSONO CAUSARE SPIACEVOLI 1 
OUT OF MEMORY' AL TERMINE DEL 

:rem 239 

220 REM CARICAMENTO. : rem 204 

230 POKE46, 64 :POKE72, 64 : POKE50 , 64 : CLR 

: rem 171 

240 PRINT" { CLR } { RVS } { CYN } { 6 SPAZIJA 
{ 2 SPAZI }U { 2 SPAZI } T { 2 SPAZIJO 
{ 2 SPAZI }D { 2 SPAZI } I { 2 SPAZIJS 


370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 


PRINT" { 6 SU}{ 17 

SPAZI} PER": rem 

184 

PRINT" (GIU' }{ 11 

SPAZI} {RVS } " ; F$ (0) 

{OFF} " 

: rem 

198 

J=1 

: rem 

84 

GOSUB750 

: rem 

176 

F$ (1)="" 

: rem 

2 

EF=0 

: rem 

142 

GOSUB75C 

: rem 

179 

IF EF=0 THEN J=J+1 :GOTO430 : rem 

133 

T=J-1 

: rem 

210 

CLOSE8 

: rem 

72 

PRINT" {CLR}" 

: rem 

255 

J=1 :EF=0 

: rem 

134 

GOSUB830 

: rem 

184 

IF EF=0 GOTO490 

: rem 

242 

PRINT 

: rem 

35 

PRINT "RETURN PER 

ALTRO DISCO, O" 



: rem 

158 

PRINT" {GIU' } CARICA PROGRAMMA ( DA 

1 A 

" ; T ; " ) " ; 

: rem 

84 

INPUT" { 4 SPAZI }{ 

3 SIN } " ; A$ :N=VAL (A$ 

) 

: rem 

194 

IF N>0 AND N<=T GOTO610 : rem 

163 

PRINT" {CLR} { 2 GIU' } INSERISCI IL 

DISC 

O NEL DRIVE E H 

: rem 

111 


580 

590 

600 

610 


PRINT" { 2 GIU 1 } PREMI RETURN SE SEI PR 
ONTO { 6 SPAZI }{ 5 SIN } " ; : INPUTA$ 

: rem 130 

REM INI ZIALIZZAZ IONE DEL DRIVE 

: rem 163 

OPEN15, 8,15: PRINT#15, "IO" : rem 101 
RUN : rem 139 

PRINT M { CLR) { 10 GIU 1 } { 3 DES } CARICAME 
NTO DI { 2 SPAZI} (RVS) n ;F$(N) ; " {OFF}" 



{ 2 SPAZI }K{ 6 

SPAZI }MCG 8 6 {WHT } " 




: rem 

22 



: rem 

89 

620 

REM LETTURA INDIRIZZO INIZIALE DEL 

, FI 

250 

C$=CHR$ (13) :P$ 

=CHR$ (34) : rem 

149 


LE SU DISCO 

: rem 

195 

260 

N$=" " 

: rem 

139 

630 

OPENl, 8, 3, "0 : "+F$ (N) 

: rem 

205 

270 

PRINT" { 7 GIU' 

}{ 8 SPAZI} CARICAMENTO 

640 

GET #1,L$ 

: rem 

106 


DIRECTORY" 

: rem 

188 

650 

GET #1,H$ 

: rem 

103 

280 

PRINT" { 6 GIU' 

}{ 12 SPAZI } ATTENDERE. . 

660 

X$=H$ :GOSUB720 : H=X*256 

: rem 

242 


ft 

* 

: rem 

247 

670 

X$=L$ : GOSUB72 0 : L=X 

: rem 

52 

290 

DIM F$ (155) 

: rem 

203 

680 

PRINT" { 2 GIU'H 3 SPAZI} INDIRIZZO 

i IN 

300 

FOR J=0TO 49 

: rem 

65 


IZIALE : "H+L 

: rem 

161 

310 

F$ ( J) ="" 

: rem 

26 

690 

CLOSE1 

: rem 

70 

320 

NEXT 

: rem 

212 

700 

REM CARICAMENTO DEL FILE 

IN RAM 


330 

J=0 

: rem 

77 



: rem 

13 

340 

REM APERTURA FILE SU DIRECTORY DISCO 

710 

LOAD F$ (N) , 8, 1 

: rem 

130 



: rem 

206 

720 

IF X$="" THEN X=0 : RETURN 

: rem 

51 

350 

OPEN 8 , 8 , 0 , " $ 0 

" : rem 

134 

730 

X=ASC (X$ ) 

: rem 

211 

360 

GOSUB750 

: rem 

181 

740 

RETURN 

: rem 

123 
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750 

GET#8, A$ : IFA$ON$THEN750 

: rem 

77 

760 

GET#8 , A$ : IFA$ON$THEN7 90 

: rem 

82 

770 

GET# 8 , A$ : IFA$ON$THEN7 90 

: rem 

83 

780 

GET#8, A$ : IFA$=N$THENEF=1 : 

RETURN 




: rem 

138 

790 

IFA$OP$THEN7 60 

: rem 

78 

800 

GET#8 , A$ : IFA$=P$THEN820 

: rem 

12 

810 

F$ ( J) =F$ (J) +A$ : GOTO800 

: rem 

123 

820 

RETURN 

: rem 

122 

830 

JA$=STR$ ( J) : JB$=STR$ (J+l) 

: rem 

122 

840 

PRINT " { RVS } " ; RIGHT$ ( JA$, 

2 ) ; " { OFF } 

” ;T 


AB (3) ; F$ (J) ; 

: rem 

220 

850 

IF ( J=35) OR ( J>75) OR ( J=115) THENGOSUB910 



: rem 

171 

860 

IF F$ (J+l) ="”THEN PRINT : G0T08 8 0 




: rem 

222 

870 

PRINTTAB (20 ) ; " { RVS } " ; RIGHT$ (JB$,2) 

. »» 

t 


{OFF } " ; TAB (23) ;F$ (J+l) 

: rem 

248 

880 

IF J>T-2 THEN EF=1 

: rem 

146 

890 

J=J+2 

: rem 

207 

900 

RETURN 

: rem 

121 

910 

PRINT: PRINT "(GIU' } { RVS )C (OFF JONTINUA 


O (RVS ) S (OFF }CEGLI?" 

: rem 

49 

920 

GETAA$ : IFAA$="C"THENPRINT 

" (CLR) " : RETU 


RN 

: rem 

1 

930 

IFAA$=”S"THEN510 

: rem 

106 

940 

GOTO920 

: rem 

113 
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di J. A. Ledger 

trad. e adatt. di L. Prlotto 


Questa utility grafica vi permet- 
terà di disegnare facilmente In* 
tere schermate con caratteri 
grafici: quando tutto ò pronto 
Screen Genie scrive automatica- 
mente un programma BASIC In 
grado di ricreare la vldeata grafi- 
ca. Il programma utilizza come 
memoria di massa sia il drive 
che il registratore. 

Screen Genie può essere definito sia un 
editor di schermate che un generatore 
di programmi: attraverso di esso potete 
facilmente creare sfondi per i vostri gio- 
chi, videate coloratissime per titoli, o 
più semplicemente pagine di istruzioni. 
Con Screen Genie si può disegnare uti- 
lizzando caratteri di testo oppure carat- 
teri grafici, in modo normale, multicolore 
oppure a colore di fondo esteso. 

Anche se Screen Genie si carica e atti- 
va come un qualsiasi programma BA- 
SIC, dopo il RUN esso si divide in vari 
moduli, che vanno ad allocarsi compieta- 
mente al di fuori della memoria BASIC, 
lasciandovi il massimo dello spazio per i 
programmi. 

Per prima cosa viene visualizzata una 
schermata di aiuto contenente i principa- 
li comandi (questa schermata è sempre 
richiamabile premendo CTRL+H). La se- 
lezione di un comando qualsiasi nella 
schermata di aiuto provoca il passaggio 
allo schermo di lavoro e l'esecuzione 
del comando stesso. 

Una volta entrati nello schermo di lavoro 
quasi tutti i tasti producono il loro effet- 
to normale e consueto: sia il testo che i 
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caratteri grafici possono essere visua- 
lizzati normalmente, con eccezione del 
punto interrogativo e del tasto IN- 
ST/DEL, che non può essere utilizzato 
insieme allo SHIFT per inserire un carat- 
tere. 

Il tasto INST/DEL (senza lo SHIFT) non 
è disabilitato, ma funziona in maniera 
leggermente differente da quella con- 
sueta: cancella infatti il carattere che si 
trova nella posizione del cursore e spo- 


sta quest'ultimo di uno spazio verso sini- 
stra, senza far scorrere la parte di testo 
che si trova a destra del carattere can- 
cellato. 

Inoltre, per evitare scorrimenti dello 
schermo, non è possibile digitare alcun- 
ché nell’angolo inferiore destro dello 
schermo stesso: questo spazio viene 
utilizzato dal programma per mostrare il 
colore selezionato per i caratteri che si 
stanno digitando. 



I comandi di Screen Genie si dividono in 
quattro gruppi: comandi immediati, modi 
di schermo, funzioni del cursore, 
controllo del colore. 

Comandi immediati 

I comandi immediati sono i seguenti: 

CTRL+H: visualizza la schermata di 
aiuto. 

CTRL+T: cancella lo schermo dall'an- 
golo superiore sinistro alla posizione in 
cui si trova il cursore. 

CTRL+B: cancella lo schermo dall'an- 
golo inferiore destro alla posizione in cui 
si trova il cursore. 

CTRL+M: muove un blocco di caratteri 
da una posizione all'altra sullo schermo. 
Prima di poter muovere un blocco occor- 
re definirne gli angoli superiore sinistro 
e inferiore destro: premete CTRL+M, po- 
sizionate il cursore in corrispondenza 
dell'angolo superiore sinistro del blocco 
e premete RETURN. Spostate quindi il 
cursore sull'angolo inferiore destro del 
blocco di caratteri e premete nuovamen- 
te RETURN: ora il blocco è definito. Non 
resta che posizionare il cursore nel pun- 
to in cui desiderate sia trasferito l'ango- 
lo superiore sinistro del blocco e preme- 
re RETURN: il contenuto della nuova 
area sarà sostituito dal blocco di carat- 
teri (si noti che l’area originale non viene 
disturbata). 

Questo comando non permette di spo- 
stare un blocco di caratteri in un'area 
che si espanderebbe oltre il bordo dello 
schermo. 

CTRL+Z: memorizza la schermata in 
un buffer situato nella RAM del compu- 
ter. Una schermata così memorizzata 
può essere richiamata in qualsiasi mo- 
mento premendo CTRL+O. 

CTRL+O: sostituisce la schermata vi- 
sualizzata con quella contenuta nel buf- 
fer, e viceversa. Questo comando ha 
anche una funzione cosiddetta di "un- 
do", in quanto permette di annullare an- 
che gli effetti dei comandi CTRL+M e di 
cancellazione schermo. 

CTRL+P: scrive una sequenza di linee 
BASIC in grado di ricreare la schermata 
visualizzata. Queste linee, che iniziano 
con un numero di vostra scelta, posso- 
no essere "fuse" con qualsiasi program- 
ma BASIC si trovi in memoria. 

Se si verificano conflitti tra i numeri di li- 
nea del programma generato da Screen 
Genie e quelli del programma in memo- 


ria, viene visualizzato un messaggio 
che consente di scegliere un nuovo nu- 
mero di linea iniziale. 

E' inoltre possibile istruire Screen Genie 
in modo che aggiunga anche delle linee 
relative al colore di bordo e fondo e, se 
ci si trova in multicolore o in modo a colo- 
re di fondo esteso, per far sì che aggiun- 
ga anche le linee che permettono dì ac- 
cedere a questi modi grafici. 

Infine avete la possibilità di aggiungere 
una linea che attenda la pressione di un 
tasto da parte dell’utente, linea partico- 
larmente utile se si utilizzano più videa- 
te. Se selezionate questa opzione men- 
tre vi trovate in modo multicolore oppure 
a colore di fondo esteso, potete anche 
fare in modo che venga aggiunta una li- 
nea in grado di riattivare il normale modo 
testo dopo che sia avvenuta la pressio- 
ne di un tasto. 

La risposta "di default" per tutte le opzio- 
ni di questo modo programma è afferma- 
tiva (Y): la pressione di qualsiasi tasto 
che non sia Y oppure RETURN equivale 
a una risposta negativa. 

CTRL+X: provoca l’uscita in ambiente 
BASIC. Per riattivare Screen Genie è 
sufficiente digitare GENIE e premere 
RETURN. 

Si noti che l’istruzione GENIE funziona 
sia in modo diretto che in modo pro- 
gramma. 

Modi di schermo 

Oltre al normale modo testo, Screen Ge- 
nie permette di utilizzare ii modo multico- 
lore e il modo a colore di fondo esteso. 
Per un'analisi del funzionamento di que- 
sti modi grafici fate riferimento alla se- 
rie di articoli "Uno sguardo alla grafica 
del C64" che stiamo pubblicando. I co- 
mandi per i modi grafici di schermo 
sono: 

CTRL+K: entra nel modo a colore di 
fondo esteso, in cui è possibile utilizza- 
re soltanto i primi 64 caratteri del set. 

CTRL+C: entra in modo multicolore. 
Quest'ultimo non può essere utilizzato 
insieme al modo a colore dì fondo este- 
so, e offre i massimi risultati se utilizza- 
to con un set di caratteri ridefiniti. 

CTRL+U: permette l’uso di caratteri ri- 
definiti. In questo modo grafico sono di- 
sponibili soltanto i caratteri maiuscoli e 
grafici. Prima di usare questo comando 
dovete caricare in memoria il set di ca- 
ratteri ridefinito, a partire dalla locazio- 
ne 61440. Si noti che se si utilizza un 
set di caratteri ridefiniti, al programma 
BASIC eventualmente generato da 


Screen Genie occorrerà aggiungere la 
serie di istruzioni necessarie al carica- 
mento e abilitazione del nuovo set di ca- 
ratteri. 

Funzioni del cursore 

Corrispondono ai tasti funzione di nume- 
ro dispari: 

FI: permette di disegnare con un carat- 
tere. Esistono due modi per selezionare 
il carattere da utilizzare: muovere il cur- 
sore sopra il carattere desiderato e pre- 
mere FI , oppure premere FI e digitare il 
carattere che si intende utilizzare. Per 
cancellare premete la barra spazio. 

F3: seleziona il colore in cui si disegna: 
premete CTRL oppure il tasto Commodo- 
re insieme a un tasto numerico dal a 8. 

F5: modifica l’aspetto di un carattere, 
facendolo passare da maiuscolo a minu- 
scolo e viceversa. E 1 molto utile in mo- 
do a colore di fondo esteso, dove i carat- 
teri shiftati hanno un diverso colore di 
fondo. 

F7: pone in campo inverso un caratte- 
re. Anche questo comando è molto utile 
in modo a colore di fondo esteso, dove 
l'inversione di un carattere gli fa assu- 
mere un diverso colore di fondo. 

Controllo del colore 

I tasti funzione di numero pari presiedo- 
no invece al controllo del colore: 

F2: modifica il colore del bordo dello 
schermo. 

F4: modifica il colore de! fondo dello 
schermo. 

F6: permette di modificare il colore dei 
registri (in modo multicolore o colore di 
fondo esteso) uno, due e tre. 

F8: modifica il colore di tutti i caratteri 
colorati come il carattere che si trova in 
corrispondenza del cursore. 

Note per il caricamento, la dupli- 
cazione su disco e la digitazio- 
ne del programma 

Se si dispone della cassetta allegata al- 
la rivista, il programma si carica in me- 
moria e si manda in esecuzione attraver- 
so la pressione contemporanea dei tasti 
SHIFT e RUN/STOP. La cassetta contie- 
ne, nello stesso ordine in cui appaiono 
sulla rivista, tutti i programmi di questo 
numero: per ottenerne un elenco, con la 
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relativa posizione del contanastro, inse- 
rire nel registratore la cassetta comple- 
tamente riavvolta, azzerare il contana- 
stro e digitare: 

VERIFY"*" 

Poiché la cassetta sicuramente non 
contiene alcun programma dal nome M * H 
verranno passati in rassegna tutti i pro- 
grammi contenuti attraverso il mes- 
saggio: 

FOUND nome del programma 

Risulta utile annotarsi i nomi dei vari pro- 
grammi e la relativa posizione del conta- 
nastro (sottrarre due o tre unità dal valo- 
re corrispondente all'apparizione del 
messaggio FOUND), in modo da poter in 
seguito caricare il programma desidera- 
to senza dover necessariamente legge- 


re tutti i programmi precedenti. 

Se si desidera duplicare il programma 
su disco, è sufficiente caricarlo in me- 
moria da cassetta con un semplice 
LOAD (senza cioè mandarlo in esecuzio- 
ne) e quindi salvarlo su disco con il co- 
mando SAVE M nome programma"^. 

Gli abbonati che non dispongono della 
cassetta dovranno invece digitare il pro- 
gramma attraverso MLX (in altra parte 
della rivista). Poiché il linguaggio mac- 
china da digitare occupa l'area di memo- 
ria (inizio del BASIC) che sarebbe nor- 
malmente occupata da MLX stesso, oc- 
corre riconfigurare la memoria del C64 
prima di caricare MLX. A questo scopo, 
si esegua la seguente procedura: 

1 . Spegnere e riaccendere il C64 e digi- 
tare in modo diretto (senza numero di li- 
nea) le seguenti istruzioni: 


POKE44,32:POKE32*256,0:NEW 

2. Caricare e mandare in esecuzione 
MLX, rispondendo alle sue due doman- 
de iniziali con: 

indirizzo iniziale: 2049 
indirizzo finale : 7440 

3. Digitare il programma in linguaggio 
macchina e salvarlo su nastro o disco. 
Una volta salvato i! programma su na- 
stro esso potrà essere ricaricato in me- 
moria in qualsiasi momento, senza più 
bisogno di MLX, seguendo le istruzioni 
date più sopra per i possessori di cas- 
setta. 

Si ricorda che se il programma è stato 
salvato su disco, occorre aggiungere il 
nome del file e il numero di periferica 8 
all'istruzione LOAD. 
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2049 

= 024 , 

008 , 

010 , 

000 , 

158 , 

050 , 

251 

2055 

= 048 , 

055 , 

052 , 

058 , 

083 , 

067 , 

114 

2061 

= 082 , 

069 , 

069 , 

078 , 

032 , 

071 , 

158 

2067 

= 069 , 

078 , 

073 , 

069 , 

000 , 

000 , 

052 

2073 

= 000 , 

169 , 

004 , 

133 , 

014 , 

169 , 

002 

2079 

= 013 , 

133 , 

015 , 

169 , 

000 , 

133 , 

238 

2085 

= 016 , 

169 , 

160 , 

133 , 

017 , 

162 , 

182 

2091 

= 015 , 

160 , 

000 , 

136 , 

177 , 

014 , 

033 

2097 

: 145 , 

016 , 

192 , 

000 , 

208 , 

247 , 

089 

2103 

= 230 , 

015 , 

230 , 

017 , 

202 , 

048 , 

029 

2109 

: 00 6 , 

208 , 

238 , 

160 , 

136 , 

208 , 

249 

2115 

= 234 , 

160 , 

128 , 

185 , 

139 , 

028 , 

173 

2121 

= 153 , 

111 , 

198 , 

136 , 

208 , 

247 , 

102 

2127 
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041 , 

002 

, 240 , 

086 

4935 

: 010 , 

010 

, 038 , 

016 

, 105 

, 024 , 

018 

5289 

: 004 , 

169 

, 255 , 

208 , 

002 

, 169 , 

208 

4941 

: 141 , 

000 

, 208 , 

144 

, 002 

, 230 , 

034 

5295 

: 050 , 

141 

, 143 , 

173 , 

032 

, 083 , 

029 

4947 

: 0 1 6 , 

173 

, 016 , 

208 

, 041 

, 254 , 

023 

5301 

: 171 , 

169 

, 114 , 

162 , 

174 

, 032 , 

235 

4953 

: 005 , 

016 

, 141 , 

016 

,208 

, 138 , 

101 

5307 

: 155 , 

165 

, 032 , 

249 , 

169 

, 208 , 

141 
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5313 

5319 

5325 

5331 

5337 

5343 

5349 

5355 

5361 

5367 

5373 

5379 

5385 

5391 

5397 

5403 

5409 

5415 

5421 

5427 

5433 

5439 

5445 

5451 

5457 

5463 

5469 

5475 

5481 

5487 

5493 

5499 

5505 

5511 

5517 

5523 

5529 

5535 

5541 

5547 

5553 

5559 

5565 

5571 

5577 

5583 

5589 

5595 

5601 

5607 

5613 

5619 

5625 

5631 

5637 

5643 

5649 

5655 

5661 


007. 169. 118. 162. 173. 076. 130 
201,167,169, 138, 162, 173, 185 
032,065, 170, 032,108,170,014 
036,072, 112,038,032,224,213 
169,160,039,032,204, 169,222 
201,096,240,015,201, 160, 112 
240,004,201,224,208,011,093 
032,213, 169, 197,066,208,096 

004.169.032. 145. 022. 136.237 

016.227. 198. 038.208.221.131 

032.224. 169. 169. 016. 133.228 

008. 160.000. 032.204. 169.064 

133.009.076.014.168.169.066 

146. 133.009. 162.000. 134.087 
084,202, 134,036,032,014,011 

170.032.143.170. 160.039.229 
032,204, 169,201, 032,208, 111 
018, 13 6, 016, 246, 169, 017, 12 9 
032,046, 170,032, 154, 170, 137 

198.038.208.232.076.213.248 
168,132,037,230, 036,164,056 
036,032,204,169, 170,048,210 
014, 036, 009, 048, 021, 169, 110 

146. 133.009.032.046. 170.099 

076.091. 168.036.009.016.221 
007,169,018, 133,009,032, 199 
046, 170, 138, 036, 072,080,123 
002,041, 063,201, 032,240, 166 
018, 164,036,032,213,169,225 
197,008,240,009, 133,008, 194 

168.185.112.175. 032.046. 067 

170. 138.041. 127.201.032.064 
144,008,201,064, 144,010, 188 
2 01, 096, 144, 003, 02 4, 105, 196 

032.024.105.032.032.046. 156 

170.165.036.197.037.240.224 
022, 165,084,201, 071, 144, 072 

156. 032.170. 170. 032.014.221 

170.032.143. 170. 169.000. 081 
133, 084,076, 056, 168, 032, 208 

154.170.198. 038.240. 028.237 

165.036.201.039.208.006.070 
032,170,170, 076, 014, 168, 051 
169, 034,032, 046, 170, 169,047 
000, 032,046, 170, 032, 108,077 

170.076.010. 168.032. 170.065 
170,032,108, 170, 165,032,122 

133.026.165.033. 133.027.224 
169, 034,162, 173,032,155, 182 

165. 032.249. 169.208. 070. 100 

165.039. 133.020. 165. 040.031 
133,021,032,014,170,032,133 

108. 170.169. 150. 162. 173. 157 

032. 065. 170. 165. 071. 041.031 
016,240,021,032,091, 171,064 

208. 038.032. 014.170.032.249 
108, 170, 169,233, 162, 173, 008 

032. 065. 170.076. 047. 169. 070 
036,072,080,018,032,091, 102 


5 667 : 171, 208, 013, 032, 014, 170, 131 
5 673 : 032, 108, 170, 1 69, 1 94 , 1 62 , 108 
5 67 9 : 173, 032,0 65,170, 165,063,203 
5 685 : 240, 031,169, 054,162,173,114 
5 691 : 032, 155, 165, 166, 028, 165, 002 
5 697 : 02 9, 032, 065, 172, 169,083, 103 
5703 :162,173,032, 155, 165, 166, 156 
5709 :039,165,040,032,065,172,078 
5715 2076, 180, 166, 165, 039, 208, 149 
5721 2002,198,040,198, 039, 165,219 
5727 2040, 201,250, 144, 006, 032, 000 
5733 2181, 170,076,053, 167, 165, 145 
5739 2026,056,233,000, 133,016,059 
5745 : 165, 027,233,208, 133, 017, 128 
5751 2 165,045, 133, 014, 024, 101, 089 
5757 : 016, 133, 016, 168, 165, 04 6, 157 
5763 2 133,015, 101,017, 133, 017, 035 
5769 2197, 056, 144, 026,208, 004, 004 
5775 2196, 055, 144, 020, 169,087, 046 
5781 2162,173,032, 155,165, 169,237 
5787 2021,162,175, 032, 155,165,097 
5793 2032,243,169, 076, 208, 166, 031 
57 99 : 162, 005, 14 9, 045,202, 148, 110 
5805 2045,202,016, 248,032,115,063 
5811 2 165, 165, 026, 133, 014, 165, 07 9 
5817 2 027,133,015,169, 000, 133, 150 
5823 2095,169,208,133,096, 032,156 
5829 2115,165,032,124,198,032,095 
5835 2 181,170,076, 150,169,032,213 
5841 2129, 170,177,022, 032,135, 106 
5847 2 170,096, 032, 129, 170,177,221 
5853 : 024, 032, 135,170,041,015, 12 6 
5859 : 096, 169,025, 133, 038, 169, 089 
5865 2 000, 133, 022, 133, 024, 169, 202 
5871 : 248, 133, 023, 169, 252, 133, 173 
5877 : 025,096,032,228,255,240,097 
5883 2251,096,032,228,255,240,073 
5889 2251,201,089,240,011,201,226 
5895 2013,240,007,008,169,078,010 
5901 2032,210,255,040,096, 169,047 
5907 2255, 032,046, 170, 032 , 04 6, 088 
5 913 : 170,165,020,032,04 6, 170, 116 
5919 2165,021,032,046, 170,032,241 
5925 2133, 198, 144,002,230,064,040 
5931 2230,020,208,002,230,021,242 
5937 2096, 032,049, 172, 160, 000, 046 
5943 2145, 026,032,057, 172,230,205 
5 94 9 : 02 6, 208, 002, 230, 027,230, 016 
5955 2084, 096, 133, 016, 134, 017, 035 
5961 2160,000, 177,016,201,255, 114 
5967 2240,003,032,046, 170,230,032 
5973 2OI6, 208,002,230,017,201,247 
5979 2000,208,235,096, 162,255,023 
5985 2041,015,201,010, 144,006,002 
5991 2162,049,024, 105,038,096,065 
5997 2105, 048, 096, 165, 026, 133, 170 
6003 2032,165,027,133, 033,165, 158 
6009 : 020, 133 , 039, 1 65, 021 , 133, 120 
6015 :040, 165, 064, 133, 063,096, 176 
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6021 : 120 , 169 , 037 , 133 , 001 , 096 , 177 
6027 : 072 , 169 , 038 , 133 , 001 , 104, 144 
6033 : 088 , 096 , 169 , 153 , 032 , 046,217 
603 9 : 17 0 , 169 , 034 , 032 , 046 , 170 , 004 
6045 : 096 , 169 , 040 , 02 4 , . 101 , 022, 097 
6051 : 133 , 022 , 133 , 024 , 144 , 004 , 111 
6057 : 230 , 023 , 230 , 025 , 096 , 169, 174 
60 63 : 147 , 162 , 173 , 032 , 065 , 170 , 15 6 
60 69 : 032 , 108 , 170 , 0 96 , 169 , 153, 141 
607 5 : 162 , 172 , 032 , 155 , 165 , 165,014 
6081 : 040 , 166 , 039 , 032 , 065 , 172, 195 
6087 : 169 , 013 , 032 , 2 10 , 255 , 096 , 20 6 
60 93 : 169 , 000 , 240 , 002 , 169 , 015, 032 
6099 : 141 , 033 , 208 , 141 , 032 , 208,20 6 
6105 : 169, 04 0 , 141 , 024 , 208 , 169, 200 
6111 : 200 , 141 , 022 , 208 , 173 , 017,216 
6117 : 2 08 , 04 1 , 01 6 , 00 9 , Oli , 141, 143 
6123 : 017 , 208 , 169 , 000 , 141 , 021, 023 
612 9 : 2 08 , 096 , 133 , 015 , 132 , 017,074 
6135 : 160 , 000 , 132 , 014 , 132 , 016 , 189 
6141 : 177 , 014 , 145 , 016 , 13 6 , 208 , 181 
614 7 : 24 9 , 230 , 015 , 230 , 017 , 202, 178 
6153 : 208 , 242 , 096 , 05 6 , 032 , 240 , 115 
6159 : 255 , 192 , 040 , 144 , 004 , 152,034 
6165 : 233 , 040 , 168 , 096 , 032 , 083 , 161 
6171 : 171 , 169 , 085 , 162, 17 4 , 032,052 
6177 : 155 , 165 , 032,24 9 , 169 , 208,243 
6183 : 04 6 , 032 , 014 , 170 , 032 , 108 , 185 
6189 s 170 , 165 , 067 , 032 , 091 , 170,228 
6195 : 141 , 172 , 173 , 142 , 171 , 173,255 
6201 : 165 , 0 68 , 032 , 0 91 , 170 , 141,212 
6207 : 182 , 173 , 142 , 181 , 173 , 165, 055 
6213 : 0 69 , 032 , 091 , 170 , 141 , 192,252 
6219 : 173 , 142 , 191 , 173 , 169 , 164,063 
6225 : 162 , 173 , 032 , 0 65 , 170 , 096 , Oli 
6231 : 169 , 016 , 162 , 174 , 032 , 155 , 027 
6237 : 165 , 096 , 169 , 145 , 162 , 174,236 
6243 : 032 , 155 , 165 , 169 , 038 , 162, 052 
624 9 : 174 , 032 , 155 , 165 , 032,24 9 , 14 4 
6255 : 169 , 096 , 169 , 038 , 162 , 174, 151 
62 61 : 032 , 155 , 165 , 032,24 9 , 169 , 151 
62 67 : 0 96 , 162 , 034 , 181 , 008 , 157,24 9 
6273 : 144 , 175 , 202 , 016 , 248 , 162, 052 
627 9 : 034 , 181 , 057 , 157, 17 9 , 175 , 150 
5285 : 202 , 016, 24 8 , 162 , 214 , 160 , 119 
62 91 : 175 , 056 , 032 , 141 , 255 , 120 , 158 

62 97 : 032 , 138 , 255 , 169, 23 9 , 141 , 103 
6303 : 02 4 , 003 , 169 , 198 , 141 , 025,207 

• 6309 : 003 , 169 , 154 , 141 , 020 , 003, 143 
6315 : 169 , 198 , 141 , 021 , 003 , 088, 023 
6321 : 169 , 000 , 141 , 039 , 208 , 133,099 
6327 : 013 , 133 , 018 , 133 , 012 , 141, 121 
6333 : 023 , 208 , 173 , 001 , 003 , 201,030 
6339 : 198 , 240 , 019 , 141 , 194 , 198 , 161 
634 5 : 173 , 000 , 003 , 141 , 193 , 198, 141 
6351 : 169 , 188 , 141 , 000 , 003 , 169 , 109 
6357 : 198 , 141 , 001 , 003 , 169 , 004,217 

63 63 : 160 , 200 , 162 , 004 , 032 , 239,248 
63 69 : 170 , 173 , 002 , 221 , 009 , 003, 035 


6375 : 14 1 , 002 , 221 , 169 , 000 , 141, 137 
6381 : 000 , 221 , 173 , 024 , 208 , 041 , 136 
6387 : 002 , 009 , 040 , 141 , 024 , 208 , 155 
6393 : 169 , 200 , 141 , 13 6 , 002 , 169 , 042 
5399 : 028 , 141 , 248 , 203 , 160 , 004,015 
6405 : 169, 02 9 , 153,24 9 , 203 , 136 , 17 6 
6411 : 208 , 250 , 169 , 030 , 141 , 254,039 
6417 : 203 , 169 , 031 , 141 , 255 , 203,2 51 
6423 : 160 , 007 , 185 , 128 , 175 , 153,0 63 
642 9 : 004 , 208 , 136 , 016 , 247 , 169,041 
6435 : 060 , 141 , 016 , 208 , 169 , 028 , 145 
6441 : 141, 02 9 , 208 , 141 , 027 , 208,027 
64 4 7 : 169 , 019 , 032 , 210 , 255 , 096, 060 
6453 : 120 , 072 , 169 , 036 , 133 , 001,072 
6459 : 104 , 096 , 072 , 169 , 038 , 133 , 159 
64 65 : 001 , 104 , 088, 0 96 , 134, 08 6, 0 62 
64 71 : 133 , 087 , 162 , 003 , 169 , 000 , 113 
6477 : 14 9 , 088 , 202 , 016 , 251 , 160 , 175 
64 83 : 015 , 006 , 086 , 038 , 087 , 120,17 9 
6489 : 248 , 165 , 088 , 101 , 088 , 133,144 
64 95 : 088 , 165 , 089 , 101 , 089 , 133,248 
6501 : 089 , 165 , 090 , 101 , 090 , 133,001 
6507 : 090 , 216 , 088 , 136 , 016 , 227 , 112 
6513 : 162 , 002 , 181 , 088 , 072 , 074, 180 
6519 : 074 , 074 , 074 , 032 , 138 , 172 , 171 
6525 : 104 , 041 , 015 , 032 , 138 , 172, 115 
6531 : 202 , 016 , 237 , 165 , 091 , 208,02 6 
6537 : 003 , 032 , 142 , 172 , 096 , 197,011 
6543 : 091 , 240 , 251 , 009 , 048 , 133, 147 
654 9 : 091, 07 6 , 210 , 255 , 032 , 157,202 
6555 : 157 , 000 , 147 , 031 , 002 , 010,24 6 
6561 : 013, 07 6 , 065 , 083 , 084 , 032,002 
6567 : 07 6 , 073 , 078, 0 69 , 032 , 078, 0 61 
6573 : 0 8 5 , 077 , 066 , 0 69 , 082 , 032 , 072 
657 9 : 085 , 083 , 069, 0 68 , 058 , 032,0 62 
6585 : 000 , 147 , 018 , 028 , 042 , 042,206 
6591 : 042 , 032 , 073 , 078 , 086 , 065,055 
6597 : 07 6 , 073 , 068 , 032 , 069 , 078,081 
6603 : 084 , 082 , 089 , 032 , 042 , 042, 0 62 
6609 : 042, 14 6 , 032 , 084 , 082,08 9 , 172 
6615 : 032 , 065 , 071, 0 65 , 073 , 078,087 
6621 : 04 6 , 013 , 000 , 013 , 028, 07 6 , 141 
6627 : 073 , 078 , 069 , 032 , 078 , 085, 130 
6633 : 077 , 066 , 069 , 082 , 032 , 069, 116 
6 639 : 088 , 067 , 069, 0 69 , 068 , 083 , 171 
6 645 : 032 , 054 , 051 , 057 , 057 , 057, 041 
6651 : 032, 07 6 , 073 , 077 , 073 , 084, 154 
6657 : 013 , 000 , 013 , 013 , 151 , 069, 004 
6663 : 078 , 084 , 069 , 082 , 032 , 066, 162 
6 669 : 069 , 071 , 073 , 078 , 078 , 073 , 199 
6 675 : 07 8 , 071 , 032,07 6 , 073 , 078 , 171 
6681 : 0 69 , 032 , 078 , 085 , 077 , 066 , 17 6 
6687 : 0 69 , 082 , 032 , 079 , 082 , 013 , 132 
6693 : 000 , 013 , 013, 0 65, 0 68 , 068, 008 
6 699 : 032 , 087 , 065 , 073 , 084 , 032 , 160 
6705 : 07 6 , 07 9 , 079 , 080 , 063 , 032, 202 
6711 : 089 , 157 , 000 , 147 , 028 , 002,222 
6717 : 010 , 013 , 069 , 088 , 073 , 083 , 141 
6723 : 084 , 073 , 078 , 071 , 032, 07 6 , 225 


28 SUPERCOMMODORE 64 e 128 9/86 


6729 

6735 

6741 

5747 

6753 

6759 

6765 

6771 

6777 

6783 

6789 

6795 

6801 

5807 

6813 

6819 

6825 

6831 

6837 

6843 

6849 

6855 

6861 

6867 

6873 

6879 

6885 

6891 

6897 

6903 

6909 

6915 

5921 

5927 

5933 

6939 

6945 

6951 

6957 

6963 

6969 

6975 

6981 

6987 

6993 

6999 

7005 

7011 

7017 

7023 

7029 

7035 

7041 

7047 

7053 

7059 

7065 

7071 

7077 


:073, 078, 069, 083, 032, 066, 218 
: 0 69, 084,087,0 69, 069,078,023 
: 032, 000, 032,038, 032,000,219 
: 147, 002, 010, 013, 028, 018, 053 
: 042, 042, 042, 032, 07 9, 085, 163 
: 084, 032, 07 9, 07 0, 032,077,221 
: 0 69, 07 7, 07 9, 082, 089, 032,025 
: 042, 04 2, 042, 14 6, 013, 013, 157 
: 000, 151,053,051, 050, 05 6,22 6 
:048, 044, 048, 048, 058, 151, 012 
: 053, 051,050, 056, 04 9, 04 4 , 180 
: 048, 04 8, 058, 153, 199, 04 0, 173 
: 04 9, 052, 050, 041, 034, 14 7,006 
: 034, 059, 000, 151, 04 9, 057,245 
:056, 04 4, 048, 058, 146, 04 9, 04 6 
: 057, 056, 044, 049, 000,151,008 
: 053, 051,050, 056, 050,04 4,217 
: 048, 048, 058, 151, 053,051,072 
:0 50, 056, 051, 044, 04 8, 04 8, 222 
: 058, 151,053,051,050,056,094 
: 052, 044, 04 8, 04 8, 000, 151,024 
: 053, 051, 050, 054, 053, 044, 248 
: 194, 040, 053, 051, 050,054,135 
: 053, 041, 175, 04 9, 057,04 9, 123 
: 000, 151,053,051,050,055,065 
: 048, 04 4, 194, 04 0,053, 05 1,141 
:050, 055, 048, 041, 176, 049, 136 
: 054, 000, 151,053,051,050, 082 
: 055, 048,04 4, 194, 04 0, 053, 163 
: 051, 050, 055, 048, 041, 17 5, 155 
: 050, 051, 057, 000, 151,053,103 
: 051, 050, 054, 053, 04 4,194,193 
: 040, 053,051,050, 054,053,054 
: 041, 17 6, 054, 052, 000, 013, 0 95 
: 013, 0 65, 068, 0 68, 032,07 6, 087 
: 073, 078, 069, 032, 084, 07 9, 186 
: 032, 083, 0 69, 084,032,085, 162 
: 080, 013, 000, 0 69, 088, 084, 117 
: 0 6 9 , 078,0 68,0 69, 068,032,173 
: 066, 065, 067, 075, 07 1,082, 221 
: 07 9, 085, 078, 0 68, 032, 07 7, 220 
: 07 9, 068, 069, 032, 07 9, 082, 2 16 
: 013, 077, 085, 07 6, 084, 073, 221 
: 067, 07 9, 07 6, 082, 032, 077, 232 
: 07 9, 068,069, 0 63, 032, 089,225 
: 157, 000, 066, 0 65, 067, 075, 005 
: 071, 082,079,085, 078, 0 68,044 
: 032, 082, 069, 071,073,083,253 
: 084, 069, 082, 083, 032, 04 9, 2 48 
: 045, 051,063,032,089,157,036 
: 000, 066, 065, 0 67, 075, 071,205 
: 082, 07 9, 085, 078, 068, 032, 035 
: 038, 032, 06 6, 07 9, 082, 068, 2 38 
: 0 69, 082,032,067, 079, 07 6, 028 
: 07 9, 082,083, 063, 032,089, 057 
: 157, 000, 013, 013,065,068,207 
: 0 68, 032,07 6, 073,078,069, 037 
: 032, 084, 07 9, 032,084,085, 043 
: 082. 07 8, 032, 07 9, 070,070, 0 64 


7083 

: 013, 

000 

,147, 

013, 

028 

,018, 

134 

7089 

: 002 , 

005 

, 032, 

080, 

082 

, 069, 

191 

7095 

: 083, 

083 

,032, 

075, 

069 

,08 9, 

102 

7101 

: 083, 

032 

, 049, 

045, 

051 

, 032, 

225 

7107 

: 084 , 

079 

,032, 

067, 

089 

, 067, 

101 

7113 

: 07 6, 

069 

, 032, 

067, 

079 

,076, 

088 

7119 

: 07 9, 

082 

,083, 

002, 

005 

, 032, 

234 

7125 

: 14 6, 

002 

,003, 

013, 

000 

,013, 

134 

7131 

: 151, 

002 

, 029, 

032, 

111 

, 002, 

034 

7137 

: 004 , 

183 

,112, 

013, 

002 

, 005, 

032 

7143 

: 032 , 

066 

,065, 

067, 

075 

,071, 

095 

7149 

: 082 , 

079 

, 085, 

078, 

068 

, 032, 

149 

7155 

: 082 , 

069 

,071, 

073, 

083 

, 084, 

193 

7161 

: 069, 

082 

,032, 

032, 

048 

,032, 

032 

7167 

: 032 , 

165 

,002, 

004, 

032 

,167, 

145 

7173 

: 013, 

002 

,029, 

032, 

108 

,002, 

191 

7179 

: 004 , 

175 

,186, 

013, 

013 

,000, 

146 

7185 

: 013, 

013 

,013, 

018, 

031 

,002, 

107 

7191 

: 006, 

032 

, 080, 

082, 

069 

, 083, 

119 

7197 

: 083, 

032 

,039, 

083, 

080 

,065, 

155 

7203 

: 067, 

069 

,039, 

032, 

070 

, 079, 

135 

7209 

: 082 , 

032 

,087, 

079, 

082 

, 075, 

222 

7215 

: 045, 

083 

,067, 

082, 

069 

,069, 

206 

7221 

: 078, 

002 

,005, 

032, 

146 

, 000, 

060 

7227 

: 137 , 

138 

,139, 

140, 

133 

,134, 

112 

7233 

: 135, 

136 

, 002, 

020, 

013 

,015, 

130 

7239 

: 008, 

016 

,024, 

026, 

Oli 

,003, 

159 

7245 

: 021 , 

161 

, 053, 

161, 

059 

,162, 

182 

7251 

: 043 , 

161 

,205, 

161, 

176 

,161, 

222 

7257 

: 065, 

161 

,161, 

161, 

080 

,161, 

110 

7263 

: 003, 

161 

,024, 

162, 

143 

,164, 

240 

7269 

: 021 , 

164 

,031, 

166, 

162 

, 166, 

043 

7275 

: 005 , 

161 

, 095, 

161, 

102 

,161, 

024 

7281 

: 125, 

161 

, 148 , 

144, 

005 

, 028, 

212 

7287 

: 159, 

156 

, 030, 

031, 

158 

,129, 

014 

7293 

: 14 9, 

150 

,151, 

152, 

153 

,154, 

010 

7299 

: 155, 

000 

, 099, 

000, 

139 

,000, 

012 

7305 

: 17 9, 

080 

,242, 

032, 

142 

,198, 

242 

7311 

: 07 6, 

029 

,164, 

032, 

147 

,198, 

021 

7317 

: 07 6, 

105 

,254, 

032, 

147 

,198, 

193 

7323 

: 032 , 

051 

,165, 

076, 

142 

,198, 

051 

7329 

: 032, 

147 

,198, 

032, 

019 

,166, 

243 

7335 

: 07 6, 

142 

,198, 

169, 

038 

,133, 

155 

7341 

: 001, 

096 

,072, 

169, 

039 

,133, 

171 

7347 

: 001, 

104 

,096, 

1 65, 

018 

,240, 

035 

7353 

: 027 , 

198 

,019, 

208, 

023 

,169, 

061 

7359 

: 020, 

133 

,019, 

173, 

039 

,208, 

015 

7365 

: 073, 

001 

,141, 

039, 

208 

,173, 

064 

7371 

: 045 , 

208 

, 073, 

001, 

141 

,045, 

204 

7377 

: 208, 

141 

, 046, 

208, 

076 

, 049, 

169 

7383 

: 234 , 

224 

,011, 

240, 

003 

,076, 

235 

7389 

: 139, 

227 

,165, 

122, 

141 

,219, 

210 

7395 

: 198, 

165 

,123, 

141, 

220 

,198, 

248 

7401 

: 160, 

004 

,173, 

21-9, 

198 

,208, 

171 

7407 

: 003, 

206 

,220, 

198, 

206 

,219, 

Oli 

7413 

: 1 98 , 

173 

,001, 

008, 

217 

,234, 

052 

7419 

: 1 98 , 

208 

,222, 

136, 

016 

, 234, 

241 

7425 

: 104 , 

104 

,076, 

112, 

198 

,071, 

154 

7431 

: 069, 

078 

,073, 

069, 

064 

,170, 

018 

7437 

: 000 , 

000 

, 000, 

000, 

255 

,255, 

Oli 
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M LX é un programma che permette 
di inserire listati in linguaggio mac- 
china esenti in modo assoluto da errori 
e senza la perdita di tempo del dover 
battere e controllare lunghe sequenze 
di istruzioni DATA. 

Molti dei nostri listati di programmi in lin- 
guaggio macchina hanno il formato MLX 
(li riconoscete dal fatto che sono esclu- 
sivamente numerici) e richiedono quindi 
che MLX sia caricato in memoria ed ese- 
guito prima della battitura del listato. 

MLX vi chiederà l'indirizzo della locazio- 
ne finale del programma da caricare. 
Questi valori sono sempre indicati nel- 
l'articolo che accompagna il listato. 

MLX vi segnala automaticamente gli er- 
rori di battitura MENTRE STATE DIGI- 
TANDO IL LISTATO e vi chiede di reinse- 
rire la linea errata. L'ultimo numero battu- 
to di ogni linea rappresenta il checksum 
e viene visualizzato in reverse. 

Sono inoltre disponibili altri comandi, 
quali: 


di C. Brannon 

trad. e adatt. di M. Crlstuib Grizzì 


SHIFT-N nuovo indirizzo: permette di 
cambiare l'indirizzo della linea che vole- 
te battere ed é utile nel caso si inseri- 
scano i listati in più parti. 

SHIFT-D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco 
un file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un’istruzione 
LOAD "nome del fi1e'\1 ,1 per il registrato- 
re, oppure LOAD "nome file",8,1 per l'uni- 
tà a dischi, salvo diverse indicazioni da- 
te negli articoli corrispondenti ai vari 
programmi. Il programma sarà general- 
mente mandato in esecuzione con una 
SYS (indirizzo di partenza). 

La versione originaria di MLX per 064 ha 
subijo, dalla prima pubblicazione, diver- 
si ritocchi e miglioramenti, fino alla ver- 
sione 2.0 qui presentata. 

E’ stato in primo luogo modificato il colo- 


re di fondo dello schermo e del bordo, in 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio- 
nate le routine in linguaggio macchina di 
salvataggio e caricamento dei program- 
mi; é cambiata la forma del cursore e, 
cosa più importante, é stato aggiunto 
un tastierino numerico per gli utenti che 
si trovano più a loro agio con una diver- 
sa disposizione dei tasti. 

Oltre a poter usare i soliti tasti numerici, 
sono stati ridefiniti alcuni tasti alfabeti- 
ci, in modo da generare ugualmente dei 
numeri. I tasti ridefiniti sono i seguenti: 

U I O 789 

H J K L diventano 0 4 5 6 
M , . 12 3 

Le persone abituate a usare tali tastieri- 
ni accresceranno senz'altro, in brevissi- 
mo tempo, la velocità di battitura dei pro- 
grammi in linguaggio macchina. 


MLX 


1 00 PRINT" {CLR}{CYN}" ;CHR$ (142) ;CHR$ (8) ; : 

POKE532 80 , 0 : POKE53 28 1 ,0 :rem 71 

101 POKE788 , 52 :REM DISABILITA RUN/STOP 

: rem 89 

no PRINT" {RVS} { 40 SPAZI}"; :rem 176 
120 PRINT" {RVS} { 15 SPAZI } {DES } {OFF }[<*> ] 
£{RVS}{DES} { DES } { 2 SPAZ I }[<*>}{ OFF } 
[<*>]£ {RVS} £{RVS} { 13 SPAZI}"; 

:rem 250 

130 PRINT" {RVS } { 15 SPAZI } {DES } [<N>] [<H>] 
{DES} { 2 DES} {OFF}£{RVS}£ [<*>] {OFF} 
[ < * > ] { RVS } { 13 SPAZlJ" ; : rem 2 20 

140 PRINT" {RVS} { 40 SPAZI}" :rem 120 

200 PRINT" { 2 GIU ' } { PUR }EDI TOR DI CODICE 
MACCHINA VERSIONE 2 . 0 { 3 GIU'}" 

: rem 126 

210 PRINT" [<5>]{ 2 SU} INDIRIZZO DI PARTE 
NZA { 2 SPAZI}"; :INPUTS:F=1-F:C$=CHR$ ( 
3 1 +1 1 9*F) : rem 85 

220 IFS<2 56OR<SM0960ANDS<4 91 52)ORS>53 24 7 
THENGOSUB3000 :GOT021 0 :rem 235 

225 PRINT: PRINT: PRINT :rem 180 

230 PRINT" [<5>]{ 2 SU} INDIRIZZO CONCLUSI 
VO{ 3 SPAZI}"; :INPUTE:F=1-F:C$=CHR$ (3 
1+11 9*F) : rem 92 

240 IFE<256OR<EM0960ANDE<491 52)ORE>53 24 7 
THENGOSUB3000 : GOTO 2 30 :rem 183 

250 IFE<STHENPRINTC$ ; " {RVS } INDI RI ZZO CONC 


LUSIVO< INDIRIZZO INIZIALE" :rem 200 
255 IFE<STHENGOSUBl 000 :GOTO230 :rem 119 
260 PRINT: PRINT: PRINT :rem 179 

300 PRINT" {CLR } " ; CHR$ (1 4) : AD=S : POKEV+2 1 ,0 

:rem 225 

310 A= 1 : PRINTRIGHT$ ("00 00"+MID$ (STR$ (AD) , 
2) r5) FORJ = ATO 6 :rem 227 

315 FORJ =AT06 :rem 33 

320 GOSUB570 : IFN=- 1 THENJ =J+N : GOTO320 

:rem 228 

390 IFN=-21 1THEN71 0 ;rem 62 

400 IFN=- 204THEN790 :rem 64 

410 IFN=-206THENPRINT: INPUT" {GIU ' } I.NSERI 
RE IL NUOVO INDIRIZZO"; ZZ :rem 13 

41 4 IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 

{RVSjESCE DAL CAMPO DI VALORI INDICAT 
O" : rem 105 

41 5 IFN=- 206THENIFZZ<SORZZ>ETHENGOSUBl 000 

:GOT041 0 :rem 202 

417 IFN=- 206THENAD=ZZ : PRINT: GOTO 31 0 

:rem 238 

420 IFNO-1 96THEN480 :rem 133 

430 PRINT: INPUT" LI STATO: DA" ;F: PRINT" 

{ 9 SPAZI }A" ;: INPUTT :rem 183 

440 I FF< SORF>EORT< SORT>ETHENPRI NT" MI N IMO " 
; S; " MASSIMO" ; E; " ! [<5> ] " :GOTO430 

: rem 147 

450 FORI=FTOTSTEP6: PRINT: PRINTRIGHTS <"000 
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0"+MID$ (STR$ (I) ,2) ,5) :rem 30 

451 FORK=0TO5:N=PEEK (I+K) : PRINTRIGHT$ ("00 
"+MID$ (STR$ (N) ,2) ,3) *:rem 66 
460 GETA$ : IFA$>" "THENPRINT: PRINT: GOTO 31 0 

:rem 25 

470 NEXTK : PRINTCHR$ (20) ; :NEXTI : PRINT: PRIN 
T:G0T031 0 :rem 50 

480 IFN<OTHENPRINT: GOTO 31 0 :rem 168 

490 A ( J) =N : NEXTJ :rem 199 

500 CKSUM=AD-INT (AD/256) * 256 : FORI = l T06 :CK 
SUM= (CKSUM+A ( I ) ) AND255 : NEXT :rem 200 

510 PRINTCHR$ (1 8) ; :GOSUB570 : PRINTCHR$ (146 

) ; : rem 94 

511 IFN=-lTHENA=6:G0T031 5 :rem 254 

515 PRINTCHR$ (20) : IFN=CKSUMTHEN530 

:rem 122 

520 PRINT: PRINT" {RED {LA LINEA E' STATA IN 
SERITA IN MANIERA" :rem 157 

525 PR I NT" ERRATA . RIPETERE [<5>] ": PRINT:GO 
SUBÌ 000:GOTO31 0 :rem 27 

530 GOSUB2000 :rem 218 

540 F0RI=lT06:P0KEAD+I-l ,A(I) :NEXT:POKE54 



272,0: POKE5427 3 , 0 

: rem 

227 

550 

AD=AD+6 : IFAD<ETHEN31 0 

: rem 

21 2 

560 

GOTO 7 1 0 

; rem 

1 08 

570 

N=0 : Z=0 

: rem 

88 

580 

PRINT" [<£>]" ; 

: rem 

81 

581 

GETA$ : I FA$ = " " THEN 5 8 1 

: rem 

95 

582 

AV=- (A$ = "M" ) - 2* (A$ = " ,") -3* 

( A$ = " • 11 

) -4* 


(A$="J") -5* (A$="K") -6* (A$= 

"L") 




: rem 

41 

583 

AV=AV- 7* (A$="U" ) - 8* ( A$ = " I " 

) - 9* ( A$ 

= "O n 


) : IFA$="H"THENA$=" 0" 

: rem 

1 34 

584 

I FAV> 0THENA$ =CHR$ (48+AV) 

: rem 

134 

585 

PRINTCHR$ (20) ; :A=ASC (A$) : IFA=1 30RA=44 


ORA=32THEN670 

: rem 

229 

590 

IFA>1 28THENN=-A: RETURN 

: rem 

1 37 

600 

IFA020THEN630 

: rem 

10 

610 

GOSUB690: IFI=1 ANDT=44THENN 

=-l : PRINT" 


{SIN} {SIN}" ; :GOTO690 

: rem 

1 72 

620 

GOTO 570 

: rem 

1 09 

630 

IFA<48ORA>57THEN580 

: rem 

1 05 

640 

PRINTA$ ; :N=N*1 O+A-48 

: rem 

1 06 

650 

IFN>255THENA=20 :GOSUBl 000 : 

GOTO 600 




: rem 

229 

660 

Z = Z+1 : IFZ< 3THEN580 

: rem 

71 

670 

IFZ=0THENGOSUBl 000:GOT0570 

: rem 

114 

680 

PRINT","; : RETURN 

: rem 

240 

690 

S%=PEEK (209) +256*PEEK (21 0) +PEEK (2 

11) 



: rem 

1 49 

691 

FORI = 1 T03 : T=PEEK ( S % — I ) 

: rem 

67 

695 

IFT< >44ANDT< >58THENPOKES%- 

1,32: NEXT 



: rem 

205 

700 

PRINTLEFTS (" { 3 SIN}",I-1) 

; : RETURN 



: rem 

7 

710 

PRINT" {CLR{ {RVS}*** SAVE *** 



{ 3 GIU' }" 

: rem 

236 

715 

PRINT" { 2 GIU' {PREMERE {RVS {RETURN 


{OFF} PER USCIRE DAL SAVE{GIU' }" 




: rem 

103 

720 

F$ = "" : INPUT" {GIU ' {NOME DEL 

FILE" ; 

F$ : I 


FF$ = " "THENPRINT : PRINT: GOTO 3 1 0 




: rem 

42 

730 

PRINT: PRINT" { 2 GIU '}{ RVS } N {OFF {ASTRO 


O {RVS }D {OFF {ISCO: (N/D)" 

:rem 

1 28 

740 

GETA$ : I FA$ < > " N " AND A$ < >"D" THEN740 




: rem 

30 

750 

DV=1 -7* (A$="D") : IFDV=8THENF$ = " 0 : " 

+F$ : 


OPENl 5,8,1 5, "S"+F$ :CLOSEl 5 

: rem 

21 2 

760 

T$=F$ : ZK=PEEK (53) +2 5 6* PEEK (54) -LEN (T$ 


) : POKE782 , ZK/256 

: rem 

3 


762 POKE781 , ZK-PEEK ( 782 ) *256 : POKE780, LEN ( 

T$ ) : SYS65469 : rem 109 

763 POKE780, 1 : POKE781 ,DV: POKE782 , 1 : SYS654 

66 :rem 69 

765 K=S: POKE254, K/256: POKE253 , K-PEEK (254) 

*256: POKE780, 253 :rem 17 

766 K=E+1 : POKE782 , K/256 : POKE78 1 , K-PEEK (78 

2 )* 256 : SYS 65 496 :rem 235 

770 IF ( PEEK (783) ANDl ) OR (191 ANDST) THEN780 

: r em 111 

775 PRINT" {GIU' {FATTO . {GIU ' } " :GOT031 0 

:rem 201 

780 PRINT" {GIU' {ERRORE NEL SAVE- RI PROVA ! " 

: IFDV=1 THEN720 :rem 104 

781 OPENl 5,8,1 5: INPUT# 1 5 ,El $ ,E2$ : PRINTEl $ 

; E2$ :CLOSEl 5:GOTO720 :rem 103 

790 PRINT" {CLR}{RVS}*** LOAD *** 

{ 2 GIU' }" : rem 21 2 

795 PRINT" { 2 GIU' {PREMERE {RVS {RETURN 
{OFF} PER USCIRE DAL LOAD {GIU T T 5 ' 

:rem 96 

800 F$ = "" : INPUT" { 2 GIU' {NOME DEL FILE" ; F 
$: IFF$=" "THENPRINT: GOTO 31 0 :rem 115 
810 PRINT: PRINT" { 2 GIU '} {RVS }N {OFF {ASTRO 
O {RVS }D {OFF { ISCO : (N/D)" :rem 127 

820 GETA$ : IFA$< >"N"ANDA$< >"D"THEN82 0 

:rem 28 

830 DV= 1-7* (A$ = "D" ) : IFDV= 8THENF$ = " 0 : " +F$ 

: rem 1 57 

840 T$=F$: ZK=PEEK (53) +256* PEEK ( 54) -LEN (T$ 

) :POKE782,ZK/256 :rem 2 

841 POKE781 , ZK-PEEK (782) * 256 : POKE780 , LEN ( 

T$ ) : SYS65469 :rem 107 

845 POKE780, 1 : POKE781 ,DV: POKE782 , 1 : SYS654 
66 :rem 70 

850 POKE780, 0: SYS65493 :rem 11 

860 IF (PEEK (783) ANDl ) OR (191 ANDST) THEN870 

: rem 1 1 1 

865 PRINT" {GIU' {FATTO. " :GOT031 0 :rem 184 
870 PRINT" {GIU' {ERRORE NEL LOAD-RIPETI ! 

{GIU ' } " : IFDV=1 THEN800 irei 19 

880 OPENl 5,8, 1 5: INPUT#! 5,El$ ,E2$: PRINTEl $ 
;E2$:CLOSEl 5:GOTO800 :rem 102 

1000 REM CICALINO :rem 231 

1001 POKE54296 , 1 5 : POKE5427 7 , 4 5 : POKE54278 , 

165 :rem 207 

1002 POKE 54276, 33: POKE54273 , 6: PO KE 54272, 5 

:rem 42 

1 00 3 FORT=l TO200 : NEXT: POKE54276 , 3 2 : POKE54 
273,0: POKE54272 , 0 : RETURN :rem 202 

2000 REM CAMPANELLO :rem 130 

2001 POKE54296 , 1 5 : POKE54277 , 0 : POKE54278 , 2 

47 : rem 1 52 

200 2 POKE5427 6 , 1 7 : POKE54273 , 4 0 : POKE54272 , 
0 :rem 86 

2003 FORT= 1 TOl 00: NEXT: POKE54276,! 6: RETURN 
\ :rem 57 

3000 PRINTCS ; " {RVS } NON IN PAGINA ZERO O 
SU {DES } ROM " : GOTO! 000 :rem 240 
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di J. Siddiqui 

trad. e adatt. di E. Stefani 

Help! 

Questa interessante routine in 
linguaggio macchina vi fornisce 
un comodo strumento per inseri- 
re fino a otto schermate di aiuto 
nei vostri programmi, siano essi 
in BASIC oppure in linguaggio 
macchina. E' richiesto l'uso del 
disk drive. 

Molti dei potenti programmi di utilità per 
il C64 e CI 28 possiedono un gran nume- 
ro di comandi e opzioni diverse; in molti 
casi risulta difficile, se non impossibile, 
tenere a mente la sintassi di tutti i co- 
mandi disponibili, e dover ricorrere al 
manuale oppure aN'articolo sulla rivista 
relativo al programma risulta spesso 
una procedura alquanto scomoda. 

"Help!” vi offre una soluzione molto co- 
moda: seguendo una semplice procedu- 
ra, potete ora creare fino a otto scher- 
mate contenenti le descrizioni dei co- 
mandi (o ciò che preferite...) da inserire 
nei vostri programmi. 

Dando il RUN ad "Help!" ci sarà una bre- 
ve attesa, necessaria ad inserire in me- 
moria il codice macchina, poi ricompari- 
rà il cursore con la familiare scritta 
READY in uno schermo vuoto. 

Premete CLR per pulire lo schermo, e di- 
gitate le informazioni che desiderate in- 
serire nella prima delle schermate di aiu- 
to (non premete mai RETURN per anda- 
re a capo , altrimenti verrà generato un 
SYNTAX ERROR : spostatevi invece li- 
beramente con l'uso dei tasti cursore!). 
Evitate inoltre di premere il tasto curso- 
re verso il basso quando vi trovate sul- 



l'ultima riga, altrimenti lo schermo ese- 
guirà uno scroll verso l’alto, facendovi 
perdere la riga più alta. 

Quando avete terminato di scrivere il te- 
sto sullo schermo premete contempora- 
neamente i tasti CTRL ed F. Se usate un 
CI 28, premete il tasto ENTER sul tastie- 
rino numerico. 

A questo punto "Help!" immagazzinerà 
in memoria la videata appena creata: la 
versione per C64 esegue un lampeggio 
del bordo dello schermo per segnalarlo, 
mentre la versione per CI 28 Io modifica. 
Dopo aver salvato in memoria la prima vi- 
deata potete premere nuovamente CLR 


per pulire lo schermo e iniziare a scrive- 
re la seconda con lo stesso procedi- 
mento (e così sarà per tutte e otto le 
schermate). 

Una volta premuto CTRL+F (o ENTER 
sul tastierino per il CI 28) in corrispon- 
denza dell'ottava schermata viene auto- 
maticamente creato su disco un pro- 
gramma dal nome "HELPER.EXE", men- 
tre le schermate vengono salvate in un 
file su disco dal nome "HS". 

Se desiderate avere un numero di scher- 
mate inferiore a otto, nella versione per 
C64 premete contemporaneamente i ta- 
sti CTRL e D dopo aver completato il vo- 
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stro ultimo schermo, mentre nella ver- 
sione per CI 28 premete contemporanea- 
mente i tasti SHIFTedENTER. 

E' un'ottima idea quella di salvare le 
schermate di aiuto sullo stesso disco 
che contiene il programma cui le scher- 
mate si riferiscono. 

Help In linea 

Vediamo ora come utilizzare le scherma- 
te di aiuto appena generate in congiun- 
zione al programma cui le schermate si 
riferiscono: per prima cosa, se avete il 
C64, digitate LOAD"HELPER.EXE", 8,1 
mentre se usate il CI 28, digitate 
BLOAD"H ELPER.EXE". Digitate quindi 
SYS5632. 


"Help!" funziona con tutti i programmi in 
BASIC e con la maggior parte di quelli in 
linguaggio macchina; dopo avergli dato 
la SYS esso provvede a caricare il file 
HS contenente le schermate. Digitate 
quindi un bel NEW, e caricate e attivate 
il programma cui le schermate si riferi- 
scono. 

D’ora in poi, in qualunque momento desi- 
deriate richiamare le schermate di aiuto 
sarà sufficiente premere contempora- 
neamente i tasti CTRL e H (per il CI 28 
premere il tasto HELP). Verrà visualizza- 
ta la prima videata di aiuto, e per passa- 
re alle videate successive premete per 
il C64 i tasti CTRL e cursore a destra 
(CTRL e cursore in alto riporta alla pagi- 
na precedente), mentre per il CI 28 pre- 


mete i tasti con freccia verso il basso o 
verso l'atto per muovervi tra le videate. 

Per ritornare al programma premete con- 
temporaneamente i tasti CTRL e DEL 
per il C64, mentre per il CI 28 premete 
nuovamente il tasto HELP. 

Se richiamerete ancora le videate di aiu- 
to, verrà automaticamente visualizzata 
la videata su cui ci si trovava la volta 
precedente. 

Si noti che la pressione di RUN/STOP e 
RESTORE oppure l'esecuzione di certi 
programmi in linguaggio macchina non 
compatibili disabilitano la visualizzazio- 
ne delle videate di aiuto. Nella maggior 
parte dei casi questa può essere riabili- 
tata digitando SYS679 per il C64, oppu- 
re SYS5728 per il CI 28. 


Help! versione per C64 
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FORS= 67 9T07 6 6 : READA : POKES , A : NEXT : FORS= 

820 TO 1016 : READA: POKES, A : NEXT : rem 23 6 

F0RS=49152T0493 97 : READA: POKES, A: NEXT :P 

RINT” (CLR) {WHT} PROGRAMMA ATTIVATO” 

:rem 127 

SYS4 9152 : NEW : rem 139 

DATA 173, 245, 003, 208, 018, 173, 020 

:rem 175 

DATA 003,141,212,002,173,021,003 

: rem 152 

DATA 141,213,002,238,245,003,032 

: rem 166 

DATA 223,003,160,002,169,214,032 

: rem 168 

DATA 160,003,088,169,131,141,002 

: rem 177 

DATA 003,169,164,141,003,003,076 

: rem 17 8 

DATA 116,164,076,000,000,173,141 

:rem 212 

DATA 002,201,004,208,246,165,197 

: rem 22 4 

DATA 201,029,208,240,160,234,169 

: rem 227 

DATA 049,032,160,003,088,169,193 

:rem 239 

DATA 141,024,003,173,002,221,009 

:rem 209 

DATA 003, 141,002,221, 173, 021,208 

: rem 208 

DATA 072,076,052,003,169,000,141 

:rem 223 

DATA 021,208,169,197,141,000,221 

: rem 227 

DATA 173,032,208,072,173,134,002 

: rem 227 

DATA 032,205,003,076,079,003,024 

:rem 225 

DATA 032,168,003,032,193,003,076 

: rem 221 

DATA 089,003,056,076,076,003,238 

: rem 238 


220 

DATA 

032,208, 165, 197,201, 064,208 


230 

DATA 

: rem 

247,238,032,208,173,141,002 

233 

240 

DATA 

: rem 

201,004,208,246, 165,197,201 

227 

250 

DATA 

: rem 

002,240,217,201,007,240,223 

229 

260 

DATA 

: rem 

201, 000, 208, 232, 169, 063, 141 

210 

270 

DATA 

: rem 

002,221, 169, 199, 141, 000,221 

221 

280 

DATA 

: rem 

169, 021,141,024,208,104, 141 

224 

290 

DATA 

: rem 

032,208,104, 141,021,208,160 

224 

300 

DATA 

: rem 

002,169,214,032,160,003,169 

219 

310 

DATA 

: rem 

071,141,024,003,076,211,002 

221 

320 

DATA 

: rem 

120, 141, 020, 003, 140, 021, 003 

208 

330 

DATA 

: rem 

096, 173, 246, 003, 176, 010, 105 

192 

340 

DATA 

: rem 

016,208,002, 169, 128, 141,246 

230 

350 

DATA 

: rem 

003,096,233, 016,201, 128, 176 

233 

360 

DATA 

: rem 

246, 169,240, 144, 242, 173, 024 

231 

370 

DATA 

: rem 

208, 041, 015, 013, 246, 003, 141 

239 

380 

DATA 

: rem 

024,208,096,162, 000,157,000 

218 

390 

DATA 

: rem 

216,157,255,216,157,254,217 

226 

400 

DATA 

: rem 

157,253,218,232,208,241,096 

251 

410 

DATA 

: rem 

169, 001, 162, 008, 168, 032, 186 

239 

420 

DATA 

: rem 

255,169,002,162,247,160,003 

236 

430 

DATA 

: rem 

032,189, 255, 169, 000, 076,213 

230 



: rem 

239 
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242 


440 

DATA 

255,000,128,072,083,169,017 

: rem 

237 

450 

DATA 

160,192,032,201,192,088, 169 

: rem 

242 

460 

DATA 

193,141,024, 003, 0 96, 07 6, 049 

: rem 

241 

470 

DATA 

234, 173, 141, 002,201, 004,208 

: rem 

218 

480 

DATA 

246, 165, 197,201,018,240,071 

: rem 

241 

490 

DATA 

201, 021, 208, 236, 032, 209, 192 

: rem 

230 

500 

DATA 

032,197, 192,088,169,000,133 

: rem 

240 

510 

DATA 

095, 169, 004, 133,096, 169,232 

: rem 

247 

520 

DATA 

133,0 90,169, 007,133, 0 91, 173 

: rem 

236 

53Q 

DATA 

2 44, 192,133, 088,173,245, 192 

: rem 

249 

540 

DATA 

133, 089, 032, 191,163,238,032 

: rem 

239 

550 

DATA 

20 8, 162, 00 0, 032, 17 9,238, 232 

: rem 

233 

560 

DATA 

208,250,206,032,208, 173,231 

: rem 

230 

570 

DATA 

192,201, 00 8,2 40, 010, 169, 017 

: rem 

228 

580 

DATA 

160, 192, 032,201, 192, 076, 014 

: rem 

232 

590 

DATA 

192,032,197, 192,088,169, 167 

: rem 

1 2 

600 

DATA 

141,002,003,133,253, 169,002 

: rem 

214 

610 

DATA 

141,003,003, 133,254,032,222 

: rem 

210 

620 

DATA 

192, 169, 010, 162,232, 160, 192 

: rem 

234 

630 

DATA 

032, 189,255, 162,250, 160,003 

: rem 

232 

640 

DATA 

169,253, 032,216,255,032,222 

: rem 

235 

650 

DATA 

192, 169,002, 162,242, 160,192 

: rem 

239 

660 

DATA 

032, 189,255, 169, 000, 133,253 

: rem 

242 

670 

DATA 

169, 160, 133,254, 165,001,041 

: rem 

234 

680 

DATA 

254, 133,001, 169,253, 162,255 

: rem 

242 

690 

DATA 

160,191, 032,216,255, 169,071 

: rem 

245 

700 

DATA 

141,024,003,169, 131,141,002 

: rem 

213 

710 

DATA 

003, 169, 164, 141, 003, 003,165 

: rem 

224 

720 

DATA 

001 ,009, 001, 133, 001, 096, 16 9 

: rem 

221 

730 

DATA 

049, 160,234, 120, 141,020, 003 

: rem 

215 

740 

DATA 

140, 021, 003, 096,173,245, 192 

: rem 

233 

750 

DATA 

024, 105, 004, 141,245, 192,238 

: rem 

232 
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760 DATA 231,192,096,169,001,162,008 

: rem 

770 DATA 160,001,076,186,255,000,072 

: rem 233 

780 DATA 069,076,080,069,082,046,069 

: rem 7 

790 DATA 088, 069, 072, 083, 2 32, 159: rem 63 

Help! versione per C128 

10 PRINT" {CLR} {2 SPAZI } MEMORIZZAZIONE L/ { 


M’ 

IV 

: rem 

208 

20 FOR 1=3072 TO 3249:READ A:POKE I,A 

:NEX 

T 


: rem 

63 

30 FOR 1=5632 TO 6045:READ A:P0KE I,A 

:NEX 

T 


: rem 

65 

40 BSAVE " 

HELPER.EXE", P5632 TO P6046 




: rem 

248 

50 PRINT " 

PROGRAMMA ATTIVATO" : SYS 3072 




: rem 

77 

60 END 

: rem 

61 

3072 

DATA 

173, 060,003, 141, 033,012,173 




: rem 

12 

3079 

DATA 

061, 003,141, 034, 012, 169, 028 




: rem 

25 

3086 

DATA 

141, 0 60, 003, 169, 012, 141, 0 61 




: rem 

18 

3093 

DATA 

003, 169,192, 141,076, 012,096 




: rem 

37 

3100 

DATA 

192, 076,240, 003, 076,255,255 




: rem 

29 

3107 

DATA 

224, 001,240, 079,224,000,208 




: rem 

14 

3114 

DATA 

2 45, 173,0 41, 010, 164,236, 145 




: rem 

23 

3121 

DATA 

22 4, 16 9,004, 141, 073, 012, 162 




: rem 

17 

3128 

DATA 

000, 120, 173, 006,213, 009, 003 




: rem 

6 

3135 

DATA 

141, 0 0 6,213, 16 9, 127, 141, 000 




: rem 

16 

3142 

DATA 

255, 18 9, 0 00, 00 4, 157, 000, 192 




: rem 

23 

3149 

DATA 

232,208,247,238,073,012,238 




: rem 

40 

3156 

DATA 

076,012,173, 073,012,201,008 




: rem 

20 

3163 

DATA 

208,234,169, 000,141, 000,255 




: rem 

20 

3170 

DATA 

173,00 6,213, 041,252, 141, 00 6 




: rem 

14 

3177 

DATA 

213,088,238, 032,208, 173,076 




: rem 

46 

3184 

DATA 

012,2 01,22 4,240, 0 01, 0 9 6, 169 




: rem 

22 

3191 

DATA 

001, 162,000, 032, 104,255, 169 




: rem 

16 

3198 

DATA 

000,162,008, 168, 032, 186,255 




: rem 

39 

3205 

DATA 

169, 004, 162, 174, 160, 012, 032 




: rem 

20 

3212 

DATA 

18 9,255, 16 9, 00 0,133,253, 169 




: rem 

41 


3219 

DATA 

192, 133,254, 169,253,162,255 


3443 

DATA 

072,169, 000, 141,033,208, 173 




: rem 

46 



: rem 

26 

3226 

DATA 

160,223,032,216,255, 120,173 


3450 

DATA 

002,221, 009, 003, 141, 002,221 




: rem 

21 



: rem 

254 

3233 

DATA 

033, 012,141, 060,003, 173, 034 


3457 

DATA 

173, 000,221, 072, 041,252, 009 




: rem 

7 



: rem 

21 

3240 

DATA 

012,141,061, 003,088, 096, 048 


3464 

DATA 

000,141,000,221, 173,006,213 




: rem 

25 



: rem 

5 

3247 

DATA 

058,072, 083,169,000, 141,000 


3471 

DATA 

072, 041,063,009, 067, 141,006 




: rem 

25 



: rem 

26 

3254 

DATA 

255,173,006,213,009,003,141 


3478 

DATA 

213, 032, 108, 023, 088, 165,212 




: rem 

21 



: rem 

34 

3261 

DATA 

006,213, 169, 079, 141,000,255 


3485 

DATA 

201,088,208,250, 165,212,201 




: rem 

28 



: rem 

30 

3268 

DATA 

162, 000, 189,000,208, 157,000 


3492 

DATA 

064,240,024,201,083,240,007 




: rem 

23 



: rem 

21 

3275 

DATA 

22 4,232,208,247,238,022, 022 


3499 

DATA 

201, 084,208,242, 169,240, 044 




: rem 

30 



: rem 

42 

3282 

DATA 

238,025, 022,173,022,022,201 


3506 

DATA 

169,016, 024, 109,044, 010,041 




: rem 

15 



: rem 

21 

3289 

DATA 

22 4,20 8,234, 169, 00 0 , 141, 000 


3513 

DATA 

127,141, 044, 010, 016,220, 165 




: rem 

25 



: rem 

14 

3296 

DATA 

255, 173, 00 6,213, 041,252, 141 


3520 

DATA 

212,201, 088,208,250, 120, 169 




: rem 

29 



: rem 

24 

3303 

DATA 

006,213, 169,001, 162,000,032 


3527 

DATA 

022, 141,007,213, 173, 006,213 




: rem 

6 



: rem 

17 

3310 

DATA 

104,255, 169,001,162,008,160 


3534 

DATA 

009, 003,141, 006,213, 169, 112 




: rem 

19 



: rem 

19 

3317 

DATA 

000, 032,18 6,255, 169, 002, 162 


3541 

DATA 

141,000,255, 160,000, 198,123 




: rem 

27 



: rem 

16 

3324 

DATA 

119, 160, 022,032, 189,255,169 


3548 

DATA 

198,125, 177,124, 145,122,200 




: rem 

39 



: rem 

39 

3331 

DATA 

000, 162,000,160,192, 032,213 


3555 

DATA 

208,249, 165, 123,201,216,208 




: rem 

•5 



: rem 

37 

3338 

DATA 

255,169,192,133,058,032,129 


3562 

DATA 

239, 169, 000, 141,000,255, 141 




: rem 

48 



: rem 

24 

3345 

DATA 

175,173, 060,003, 141, 131,022 


3569 

DATA 

007,213, 10 4, 141,00 6,213, 104 




: rem 

17 



: rem 

18 

3352 

DATA 

173, 061,003,141, 132,022,169 


3576 

DATA 

141, 000,221, 104,141, 033,208 




: rem 

20 



: rem 

13 

3359 

DATA 

126, 141,060, 003,169,022,141 


3583 

DATA 

10 4, 141,021,208, 173, 044, 010 




: rem 

24 



: rem 

17 

3366 

DATA 

061, 003,096, 072, 083,008,000 


3590 

DATA 

141, 121,022,104,141,044,010 




: rem 

25 



: rem 

5 

3373 

DATA 

216, 000,240,201, 132,240,003 


3597 

DATA 

104, 133,217, 104, 133,216,104 




: rem 

3 



: rem 

26 

3380 

DATA 

076,255,255, 169,118,141,060 


3604 

DATA 

141,025, 003,104, 141,024,003 




: rem 

43 



: rem 

3 

3387 

DATA 

003, 120,173, 024, 003,072, 169 


3611 

DATA 

076, 108,022,169, 112, 141,000 




: rem 

26 



: rem 

17 

3394 

DATA 

051, 141,024,003,173,025,003 


3618 

DATA 

255, 169, 022, 141,0 07,213, 160 




: rem 

15 



: rem 

30 

3401 

DATA 

072, 169,255, 141,025, 003,165 


3625 

DATA 

000, 177, 122, 145, 124, 169, 013 




: rem 

27 



: rem 

27 

3408 

DATA 

216,072,169,000,133,216,165 


3632 

DATA 

145,122,200,208,245,230,123 




: rem 

31 



: rem 

17 

3415 

DATA 

217,072, 169,004,133,217,173 


3639 

DATA 

230,125,165, 123,201,220,208 




: rem 

34 



: rem 

23 

3422 

DATA 

044,010,072, 173, 121,022,141 


3646 

DATA 

235,169,000, 141,000,255, 141 




: rem 

8 



: rem 

23 

3429 

DATA 

044, 010,173,021,208,072,169 


3653 

DATA 

007,213, 173,006,213, 041,252 




: rem 

30 


* 

: rem 

21 

3436 

DATA 

000, 141,021,208,173, 033,208 


3660 

DATA 

141,006,213,096 :rem 

206 



: rem 

16 
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di T. Heimark 

trad. e adatt. di S. Colombo 

SpeedScrlpt-80 per CI 28 

Ora anche I possessori di CI 28 
con monitor a 80 colonne posso- 
no utilizzare il nostro word pro- 
cessor SpeedScript: ecco le mo- 
difiche da apportare al program- 
ma per fare in modo che funzio- 
ni con 80 colonne. Ricordiamo 
che SpeedScript è stato pubbli- 
cato in versione 3.0 su Super- 
Commodore N. 9 del 1985. 

SpeedScript già funziona egregiamente 
sul CI 28 in modo 64, ma, dato che il 
CI 28 supporta pienamente le 80 colon- 
ne, era fino a questo momento un pec- 
cato utilizzare il word processor soltan- 
to sulle 40 colonne tipiche del modo 64. 
SpeedScript-80 si inserisce nello Speed- 
Script 3.0 originale per fornirvi un perfet- 
to schermo a 80 colonne: esso va co- 
munque eseguito in modo 64, dal mo- 
mento che sfrutta ugualmente le caratte- 
ristiche del chip a 80 colonne (pochi san- 
no che tale chip è accessibile anche in 
modo 64...). 

Naturalmente, SpeedScript-80 non fun- 
ziona sui C64, dal momento che questi 
non possiedono il chip a 80 colonne. 

Procedura di installazione 

Si presume siate in possesso di Speed- 
Script 3.0 (la versione precedente non è 
adatta ad essere modificata con Speed- 
Script-80); spegnete e accendete il 
CI 28, ed entrate in monitor digitando il 
comando MONITOR. Inserite quindi il di- 
sco contenente SpeedScript 3.0 e digi- 
tate: 


L "nome prog'\8 f 02801 

dove "nome prog" è il nome che avete 
assegnato a SpeedScript 3.0. 

Ora caricate dalla cassetta allegata alla 
rivista (o dalla vostra cassetta se li ave- 
te digitati) ì primi quattro programmi in 
fondo a questo articolo, rispettivamente 
con: 

L"128.S80#1",1 
L"128.S80#2",1 
L "128.S80#3",1 
L"128.S80#4",1 


A questo punto occorre eseguire un sal- 
vataggio intermedio del programma con: 

S "TEMP", 8, 02801 ,04009 

Ora digitate X per rientrare in ambiente 
BASIC, e passate in modo 64 con 
G064. Dal modo 64 digitate le istruzioni 
seguenti: 

LOAD"128.S80#5",1, 

NEW 

LOAD"TEMP M ,8 

SYS49152 
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Inserite quindi il disco su cui desiderate 
salvare la versione definitiva di Speed- 
Script-80 e digitate: 

SAVE"SPEEDSCRIPT-80",8 

A questo punto potete cancellare dal di- 
sco il file "TEMP" prima generato. 

Come utilizzare SpeedScript-80 

Per utilizzare SpeedScript-80 seguite 
questa procedura: 

1. accendete il vostro C128 in modo 
128 

2. digitate G064 per passare in modo 
64 

3. caricate normalmenteSPEEDSCRIPT 

80, il quale andrà attivato con un 
normale RUN. 

4. modificate la visualizzazione dello 
schermo dalle 40 alle 80 colonne. 

Se la procedura sopra elencata non vie- 
ne eseguita correttamente, probabilmen- 
te il programma non funzionerà. 

Se infatti si tiene premuto il tasto Com- 
modore per entrare rapidamente in mo- 
do 64 all’accensione della macchina, il 
chip a 80 colonne non viene inizializza- 
to e il set di caratteri non viene caricato 
nella memoria a 80 colonne. 

Alcune modifiche nei comandi 

Tre comandi di SpeedScript 3.0 non so- 
no più disponibili utilizzando Spee- 
dScript-80: CTRL+L (colore testo), 


CTRL+B (colore fondo) e CTRL+X (inver- 
sione di due caratteri), il comando 
CTRL+4, per elencare il contenuto della 
directory, funziona in modo analogo alla 
versione su 40 colonne, ma lista i file su 
due colonne, essendoci più spazio di- 
sponibile a video (si possono visualizza- 
re al massimo 50 nomi di file in una sin- 
gola schermata): per il modo in cui è ge- 
stito il video vi è inoltre un piccolo pro- 
blema nella visualizzazione del numero 
di blocchi occupati dai file su disco, che 
ricompaiono dalla parte opposta dello 
schermo. 

Per il resto, SpeedScript-80 è compieta- 
mente compatibile con SpeedScript 3.0, 
anche per quanto riguarda il caricamen- 
to dei testi generati dalla versione 3.0. 

Note per la digitazione dei pro- 
grammi 

Gli abbonati che non dispongono della 
cassetta allegata alla rivista devono uti- 
lizzare MLX (vedi nelle pagine fisse) per 
digitare i cinque programmi listati in fon- 
do all'articolo. La procedura è la se- 
guente: 

1. Spegnere e riaccendere il CI 28, pas- 
sare in modo 64 con G064 e digitare in 
modo diretto (senza numero di linea) le 
seguenti istruzioni: 

POKE44,53:POKE53*256,0:NEW 

2. Caricare e mandare in esecuzione 
MLX, rispondendo alle sue due doman- 
de iniziali con: 


indirizzo iniziale: 10398 
indirizzo finale: 10594 

3. Digitare il Programma 1 e salvarlo su 
nastro o disco. 

4. Ridare il RUN a MLX (senza spegnere 
o resettare il computer), dando questa 
volta i seguenti indirizzi: 

indirizzo iniziale: 10830 
indirizzo finale: 10845 

5. Digitare il Programma 2 e salvarlo su 
nastro o disco. 

6. Ripetere la procedura dei punti 4 e 5 
per i Programmi 3, 4 e 5, i quali hanno ri- 
spettivamente gli indirizzi: 

Programma 3: 

indirizzo iniziale: 12637 
indirizzo finale: 12708 

Programma 4: 

indirizzo iniziale: 13381 
indirizzo finale: 13420 

Programma 5: 

indirizzo iniziale: 49152 
indirizzo finale : 49463 

Dopo aver digitato e salvato tutti e cin- 
que i programmi, seguire le istruzioni da- 
te più sopra per la generazione di Speed- 
Script-80. 


SpeedScript-80 - Programma 1 

v 

10398 : 07 6 / 182 , 008 , 14 2 , 000 , 214,012 
104 0'4 : 208 , 007 , 072 , 169 , 031 , 141, 024 
10410 : 000 , 214 , 104, 04 4 , 000 , 214, 234 
10416 : 016 , 251 , 141 , 001 , 214 , 096 , 127 
10422 : 169 , 000 , 162 , 018 , 032 , 161 , 212 
10428 : 008 , 232 , 169 , 080 , 032 , 161 , 102 
10434 : 008, 17 3 , 017 , 032 , 133 , 251, 04 0 
10440 : 173 , 018 , 032 , 133 , 252 , 162,202 
104 4 6 : 001 , 160 , 000 , 17 7 , 251 , 153 , 180 
104 52 : 060 , 003 , 200 , 041 , 127 , 201, 076 
104 58 : 031 , 240 , 019 , 192 , 080 , 208, 220 
104 64 : 240 , 136 , 177 , 251 , 041 , 127 , 172 
10470 : 201 , 032,24 0 , 005 , 13 6 , 208, 028 
10476 : 245 , 160 , 079 , 200 , 132 , 059 , 087 
104 82 : 160 , 000 , 185 , 060 , 003 , 032 , 170 
10488 : 1 66 , 00 8 , 200 , 196 , 05 9 , 208,061 
104 94 : 245 , 024 , 152 , 101 , 251 , 133 , 136 
10500 : 251 , 165 , 252 , 105 , 000 , 133 , 142 
10506 : 2 52 , 224 , 001 , 208 , 003 , 140 , 070 


10512 : 016 , 032 , 032,04 0 , 00 9 , 232 , 121 
10518 : 224 , 025 , 240 , 003 , 076 , 207, 029 
10524 : 008 , 165 , 251 , 141 , 027 , 032, 14 0 
10530 : 165 , 252 , 141, 02 8 , 032 , 096 , 23 6 

1053 6 : 192 , 080 , 240 , 008 , 169 , 032,24 9 
10542 : 032, 16 6 , 008 , 200 , 208 , 244, 13 6 

1054 8 : 0 96 , 000 , 064 , 0 64 , 00 1 , 000 , 021 
10554 : 000 , 004 , 000 , 004 , 004 , 004,074 
10560 : 2 55 , 255 , 255 , 255 , 255 , 255, 058 
10566 : 255 , 255 , 255 , 255 , 255 , 255 , 064 
10572 : 255 , 255 , 255 , 255 , 255 , 255 , 070 
1057 8 : 2 55 , 255 , 255 , 255 , 255 , 255 , 07 6 
10584 : 2 55 , 255 , 255 , 255 , 255 , 255 , 082 
10590 .* 255,24 7,0 65,0 65 , 065,04 9 , 072 
Programma 2 


10830 : 169 , 000 , 168 , 032 , 150 , 017,102 
1083 6 : 032, 04 0, 00 9 , 169 , 000, 07 6 , 154 
10842 : 150 , 017 , 255 , 255 , 048 , 048 , 095 
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Programma 5 

4 9152 : 169 , 018 , 133 , 251 , 169 , 030 , 002 
4 9158 : 133 , 252 , 160 , 000 , 177 , 251,211 
4 9164 : 04 1 , 12 7 , 240 , 020 , 201 , 032 , 161 
4 917 0 : 17 6 , 002 , 169 , 042 , 201 , 064 , 160 
4917 6 : 14 4 , 010 , 05 6 , 233 , 064 , 201 , 220 
4 9182 : 032 , 14 4 , 003 , 024 , 105 , 032 , 114 
4 9188 : 14 5 , 251 , 200 , 208 , 225 , 166 , 207 
4 9194 : 252 , 22 4 , 032 , 240 , 005 , 232 , 003 
4 9200 : 134 , 252 , 208 , 214 , 160 , 000 , 24 8 
4 9206 : 132 , 251 , 169 , 008 , 133 , 252 , 231 
4 9212 : 17 7 , 251 , 201 , 032, 24 0 , 015 , 208 
49218 : 2 00 , 208 , 247 , 166 , 252 , 232,091 
4 9224 : 134 , 252 , 224 , 021 , 208 , 238 , 125 
4 9230 : 07 6 , 118 , 192 , 132 , 002 , 132, 218 
4 923 6 : 253 , 165 , 252 , 133 , 254 , 160,021 
4 9242 : 001 , 177 , 253 , 201 , 210 , 208 , 116 
4 9248 : 016 , 200 , 177 , 253 , 201 , 255 , 174 
49254 : 208 , 00 9 , 169 , 017 , 14 5 , 2 53, 135 
4 92 60 : 136 , 16 9 , 128 , 14 5 , 253 , 164, 07 9 
49266 : 002 , 07 6 , 066 , 192 , 169 , 07 9, 186 



• DIECI LEZIONI (fascicoli con cassetta) SOFTWARE 
PER C64/I28 E C64 PERSONAL COMPUTEI^^ 

• DA RILEGARE IN UNO 
SPLENDIDO VOLUME 

IN EDICOLA OGNI 1 ^ f 

GIORNI A L. 8. 000 


I grandi 

CAMPIONI 


CON LA 1“ LEZIONE 
LA FAVOLOSA 
SCACCHIERA 
ELETTRONICA 


A SCUOLA DI 

SCACCHI 


STORIA, TEORIA E PRATICA 
PER PRINCIPIANTI ED ESPERTI 


Chi sono veramente Karpov e 
Kasparov? 

Come è nato e come si è 
diffuso nei secoli questo nobile 
gioco? 

Come riuscire a vincere tutte 
le partite? 

Scopri tutti i segreti dei grandi 
campioni, le loro mosse più 
abili e famose e le strategie di 
gioco. 

Un’opera rivoluzionaria da 
leggere, da consultare, da 
giocare. 


La prima grande opera a 
fascicoli con cassetta software 
per imparare in modo 
interattivo i segreti del 
millenario gioco degli scacchi. 


IN EDICOLA 
DUE MOSSE YIN 



4 9272 : 141, 227, 020, 169, 020, 141, 070 
4 9278 : 22 8, 020, 169, 006, 141,250, 172 
4 9284 : 020, 169, 166, 141,252, 020, 132 
4 92 90 : 169, 008, 141, 253, 020, 169, 130 
4 9296 : 032, 141, 180, 022, 141, 133,025 
4 9302 : 024, 169, 069, 141, 181,022, 244 
4 9308 : 169, 020, 141, 182, 022,169, 091 
4 9314 : 093, 141, 134, 024, 169,017, 228 
4 9320 : 141, 135, 024, 169, 166, 141, 17 6 
4 932 6 : 124,009, 169, 008, 141, 125, 238 
4 9332 : 00 9, 160, 004, 169, 120, 153, 027 
4 9338 : 139, 014, 153, 010,022, 169, 181 
4 934 4 : 088, 153, 155, 014,153,02 6, 013 
4 9350 : 022, 136, 169,234,153, 139, 027 
4 9356 : 014, 153,010, 022,153, 155, 199 
4 9362 : 014, 153, 026, 022,13 6,016, 065 


4 9368 : 241, 169,07 9, 141, 184,029, 035 
4 9374 : 141, 00 6, 030, 169, 020, 141, 217 
4 9380 : 185,02 9, 141, 007, 030, 169, 021 
4 938 6 : 034, 141, 14 0, 027,169, 022, 255 
4 9392 : 141, 141, 027, 160, Oli, 185, 137 
4 9398 : 028, 193, 153, 036, 022,136, 04 6 
4 9404 : 016, 24 7, 160, 008, 185, 04 0, 140 
4 9410 : 193, 153,229, 020, 136,016, 237 
49416 :247, 169, 234, 14 1,249, 020, 04 4 
4 9422 : 141,250, 020,169, 040, 141, 007 
4 9428 : 252, 020, 169, 009, 141,253, 096 
4 9434 : 020, 096, 185, 069, 032,240, 156 
4 9440 : 006, 032, 210, 255, 200, 208, 175 
49446 :245, 096, 169, 054,133,001,224 
4 9452 : 152,024,105, 067,168,000, 04 8 
4 9458 : 000, 000, 000, 000, 000,000, 050 



Per esaltare le tue capacità 
artistiche per imparare a 
capire tutte le applicazioni 
possibili di grafica con il 
computer. 



STRUMENTI, APPLICAZIONI 
E IMMAGINI COL COMPUTER 

Troverai tutti i consigli, i 
trucchi, i suggerimenti e gli 
aiuti necessari per sfruttare le 
potenzialità grafiche del 
computer in modo nuovo e 
originale. Dall'architettura 
all'abbigliamento, dalle auto al 
mondo dello spettacolo, non 
c’è settore in cui la computer 
graphics non sia applicata, 
prova anche tu con il tuo 
Commodore. 


CENTI JACKSON 



• DIECI VIDEOLEZIONI 
(fascicoli con cassetta) 
SOFTWARE PER C64/I28 
E C64 PERSONAL 
COMPUTER 

• DA RILEGARE IN UNO 
SPLENDIDO VOLUME 

• IN EDICOLA OGNI 15 
GIORNI A L. 8.000 


CORSO DI 


V GRUPPO EDITORIA 


DIVISIONE GRANDI OPERE 


COMMODORE C 64/128 
C64 PERSONAL COMPUTER 


STRUMENTI, APPLICAZIONI 
E IMMAGINI COL COMPUTER 
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di T. Friedman 

trad. e adatt. di S. Colombo 


Dopo aver pubblicato SpeedFi- 
le, il "turbo" che agisce anche 
sui file sequenziali su nastro, 
ecco ora una interessante uti- 
lity per i possessori di disk dri- 
ve che permette di velocizzare 
la lettura del file sequenziali su 
disco. 

Nel BASIC Commodore i due sistemi 
convenzionali per la lettura di dati dal di- 
sco prevedono l’utilizzo delle istruzioni 
GET# e INPUT# (per una completa trat- 
tazione di queste istruzioni fate riferi- 
mento aH'articolo "File sequenziali: 
quanto li conosciamo?" recentemente 
pubblicato). Benché l'istruzione GET# 
sia la più flessibile, essa è molto più len- 
ta della INPUT# che legge un'intera strin- 
ga piuttosto che un carattere alla volta. 
Anche utilizzando la INPUT#, la lettura 
di file sequenziali piuttosto estesi può ri- 
velarsi un processo di estenuante len- 
tezza. 

Speedy Strings offre un'alternativa più 
veloce che potrete trovare utile in una 
gran varietà di applicazioni. Il principio 
su cui funziona la routine è il seguente: 
si crea innanzi tutto un vettore di strin- 
ga in memoria, dotato di elementi della 
stessa lunghezza; si caricano quindi da 
disco i dati del vettore, attraverso una 
veloce routine in linguaggio macchina, 
sistemandoli direttamente al posto degli 
elementi prestabiliti del vettore. 

Non preoccupatevi, se vi sembra compli- 
cato: vedremo degli esempi che mostre- 
ranno chiaramente quanto tempo que- 


sta tecnica può far risparmiare. 

Per prima cosa salvate su disco i due 
programmi presentati in fondo a questo 
articolo, quindi caricate e mandate in 
esecuzione il Programma 1, che dimo- 
stra la differenza in velocità tra la tecni- 
ca abituale di lettura delle stringhe e 
quella veloce di Speedy Strings. Il pro- 
gramma inizia con il creare un vettore di 
stringa con 600 elementi, che viene 
riempito con elementi consistenti in 
stringhe di 20 spazi ciascuna (linee 100- 
120). La routine in linguaggio macchina 


viene quindi inserita in memoria (linea 
130) e viene creato un file sequenziale 
contenente i dati (linea 140). 

Il programma chiama quindi una subrou- 
tine di rilettura dei dati con il metodo tra- 
dizionale, utilizzando una INPUT# in un 
ciclo FOR/NEXT, è visualizza il tempo 
impiegato per la lettura dell'intero file. Al 
termine di quest’ultima il file viene riletto 
utilizzando la tecnica di Speedy Strings 
e, come potrete notare dalla differenza 
dei tempi, in modo molto più veloce. 

Prima di mandare in esecuzione la routi- 
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ne in linguaggio macchina per la lettura 
veloce del file dovete aver creato in me- 
moria un vettore già pronto per contene- 
re i dati, vettore caratterizzato da ele- 
menti di uguale lunghezza. Creando 
questo vettore dovete assicurarvi che 
la stringa costituente ciascun elemento 
inizi con uno spazio - CHR$(32) - come 
mostrato nella linea 120 del Programma 
1. In caso contrario la routine in linguag- 
gio macchina non funzionerà corretta- 
mente. 

Il Programma 2 (Fast Disk Menu) dimo- 
stra un'applicazione pratica di questa 
tecnica: permette infatti di leggere velo- 
cemente la directory di un disco, di ordi- 
narla alfabeticamente e di caricare qual- 
siasi programma contenuto sul disco 
stesso. 


Quando gli date il RUN, il contenuto del 
disco viene listato sul video in modo 
analogo al risultato di un LOAD M $",8 se- 
guito da un LIST; i file non programma 
(PRG) sono evidenziati da un colore di- 
verso, mentre alla sinistra di ciascun no- 
me di file si trova un numero progressi- 
vo. Se il disco contiene più programmi di 
quanti possano essere visualizzati in 
una singola schermata, potete premere 
la barra spaziatrice per visualizzare i ri- 
manenti. 

Per caricare e mandare in esecuzione 
un programma tra quelli elencati preme- 
te il tasto FI seguito dal numero relativo 
al programma desiderato: quest'ultimo 
verrà caricato e mandato in esecuzione 
con un RUN. Si noti che Fast Disk Menu 


consente di caricare e mandare in ese- 
cuzione soltanto programmi che siano 
attivabili con un RUN, e non quelli attiva- 
bili con una SYS. 

Potete inoltre stampare su carta il conte- 
nuto delia directory premendo F5, oppu- 
re fare in modo che i file vengano elenca- 
ti alfabeticamente attraverso la pressio- 
ne di F3, 

La routine di velocizzazione può facil- 
mente essere inserita nei propri pro- 
grammi, aggiungendovi le linee DATA 
del Programma 1 (620-690) e la linea 
610, che provvede a leggerle e a inserir- 
le in memoria nel buffer del registratore. 
La lettura del file avverrà con una sintas- 
si identica a quella della linea 210 del 
Programma 1. 


Speedy Strings 


Programma 1 


450 FORI=OTOC-1 : PRINTI ; F$ ( I) :NEXT 


100 MM=600 : REM MAX. MEMORIA :rem 58 

110 DIMF$ (MM) :PRINT" {CLR} INIZIALIZZAZION 
E VETTORE..." :rem 229 

120 FORI=OTOMM:F$ (I)=CHR$ (32) +" 

{ 19 SPAZI }":NEXT: REM* 19 SPAZI=LEN 2 
0 :rem 62 

130 GOSUB600 :REM CARICAMENTO L/M: rem 182 

140 GOSUB300 :REM CREA FILE SEQUENZIALE SU 
DISCO :rem 97 

150 GOSUB400 :REM LETTURA CONVENZIONALE 

: rem 196 

160 GOSUB200 :REM LETTURA VELOCE : rem 166 

170 END :rem 111 

200 PRINT" { 2 GIUM LETTURA VELOCE" 

: rem 100 

210 TI$="000000":OPEN15,8,15:C>PEN1,8,0,"0 
: TEST 0, S, R" : SYS (832) :CLOSEl :CLOSE15 


: rem 6 6 

460 PRINT, MID$ (T$, 3,2) " :"RIGHT$ (T$,2) 

:rem 30 

480 RETURN : rem 124 

590 REM * ROUTINE UTILIZZATA PER LA LETTUR 
A RAPIDA DEL FILE SEQUENZIALE* 

:rem 142 

600 PRINT" { 2 GIU'} MEMORIZZAZIONE L/M" 

: rem 148 

610 AD=832 :FORI=0TO7 9 :READD : POKEI+AD,D :NE 
XT : RETURN : rem 223 

620 DATA169, 255, 141,212, 3, 141,213,3, 165,5 
5 : rem 6 1 

630 DATA 133,252,165,56,133,253,162,1,32, 
198,255 :rem 64 

640 DATA 174,212,3,232,142,212,3,208,3,23 
8,213,3,216,56,165,252,233 :rem 210 
650 DATA 2 1 : REM LUNGHEZZA STRINGHE +1 


:rem 127 

220 C=PEEK (980 ) +256*PEEK (981) :rem 53 
230 T$=TI$ : rem 11 

240 FORI=OTOC-1 :PRINTI;F$ (I) :NEXT 

:rem 63 

250 PRINT, MID$ (T$,3,2) " : "RIGHT$ (T$,2) 

: rem 2 7 

260 RETURN :rem 120 

290 REM CREA IL FILE SEQUENZIALE : rem 149 
300 PRINT" { 2 GIU' } CREAZIONE FILE SEQ SU 
DISCO PER TEST" : rem 112 

310 FORI=OTOMM:F$ (I) ="*123456789012345678 
9 " : NEXT : REM *20 CARATTERI* : rem 45 
320 OPEN2 ,8, 2, "@0: TEST 0,S,W" : rem 71 

330 FORI=OTOMM:PRINT#2,F$ (I) :NEXT :CLOSE2 : 

RETURN : rem 4 9 

400 PRINT" { 2 GIU'} LETTURA CONVENZIONALE 
" :rem 131 

410 TI$="000000" :OPEN15, 8, 15 :OPEN2, 8, 0, "0 
:TEST 0, S, R" :C=0 :rem 78 

420 IFST=64THEN440 : rem 58 

430 INPUT#2,F$ (C) :C=C+1 :GOTO420 :rem 8 
440 CLOSE2 :CLOSE15 : T$=TI$ : rem 6 


: rem 174 

660 DATA 133,252,176,5,166,253,202,134,25 
3,32,207,255 : rem 52 

670 DATA 164,144,208,18,201,13,240,245,16 
0,0,145,252,200,192 : rem 122 

680 DATA2 0 : REM LUNGHEZZA STRINGHE 

: rem 84 

690 DATA 240,209,32,207,255,208,244,32,20 
4,255,96,0,0,0 :rem 138 

Programma 2 


100 POKE53280, 6 :POKE53281, 6 :rem 242 

110 PRINTCHR$ (14) CHR$ (8) :PRINT" {CLR} { BLK } 
{ 10 GIU' } {YEL} "SPC (12) " { 1 SH F } AST 
{ 1 SH D } ISK { 1 SH M}ENU : rem 160 

130 GOSUB570 :QQ=AD :rem 78 

140 DIMF$ (120) :FORI=0TO120 : rem 202 

150 F$ (I) =CHR$ (32) +" { 20 SPAZI }" :NEXT : Y$= 
CHR$ (34) :Z$=CHR$ (190) :rem 4 

160 OPEN1, 8,0,"$": SYSQQ : CLOSE1 : rem 10 

170 C=PEEK (0) : A=1 : rem 167 


180 IFA=>CTHENA=1 : rem 5 

190 PRINT" {CLR} {GIU' } { 7 SPAZI HRVS } [<8>] 

"Y$LEFT$ (F$(0),16)Y$"{ 3 SPAZI }"MID$( 
F$ (0) , 18,2) : rem 69 

200 PRINT :FORI=ATOA+8 : IFI=>CTHENPRINT : GOT 
0270 :rem 230 

210 IFLEFTS (F$ (I) , 1) =Z$THENE=2 :GOTO230 

: rem 201 


220 E=1 : IFMID$ (F$ (I) , 18, 3) <>"PRG"THENE=2 : 

F$(I)=Z$+LEFT$(F$(I) ,20) : rem 55 

230 IFE=2THENPOKE646, 3:GOTO250 : rem 63 

240 POKE646, 7 : rem 200 

250 PRINTTAB (5) I;Y$MID$ (F$ (I) ,E, 16) Y$; 

:rem 145 

260 PRINT" { 3 SPAZI } "MID$ (F$(I),17+E,3) 

:rem 31 

270 PRINT :NEXT : rem 159 

280 PRINT" {GIU' } [<8>] { 5 SPAZI) { 1 SH F}1 
-{ 1 SH L)( 1 SH 0}{ 1 SH A)| 1 SH D) 
{ 3 SPAZI) { 1 SH F } 3- { 1 SH 0} 

{ 1 SH R)| 1 SH D}{ 1 SH I){ 1 SH N) 

{ 1 SH A){ 2 SPAZI) { 1 SH F}5- 

{ 1 SH S}{ 1 SH T}{ 1 SH AH 1 SH M) 

{ 1 SH P}{ 1 SH A) " :POKE198, 0 : WAIT198 



,1 

: rem 

1 

290 

IFPEEK (197) =4THEN340 

: rem 

120 

300 

IFPEEK (197) =5THEN390 

: rem 

118 

310 

IFPEEK (1 97 )=6THEN460 

: rem 

118 

320 

IFPEEK (197) =60 THENA=A+ 9 

: GOTO180 




: rem 

60 

330 

PRINT " { 3 SU } " : GOT02 8 0 

: rem 

39 

340 

INPUT" (GIU' } { 3 SPAZI )( 

1 SH P } ROGRAM 


390 PRINT" {CLR){ 


MA # " ; N $ : N= VAL ( N $ ) : IFN<lORN>CTHEN190 

:rem 154 

350 F$=LEFT$ (F$ (N) , 16) : rem 123 

360 IFRIGHT$ (F$, 1) =" "THENF$=LEFT$ (F$, LEN 
(F$)-l) :GOTO360 :rem 115 

370 PRINT" {CLR)LOAD"Y$F$Y$", 8 : rem 8 

380 POKE631, 19 :POKE632, 13 :POKE633, 82 :POKE 
634, 117 .-POKE635, 13 :POKE198 , 5 : END 

: rem 8 

5 GIU' } { 4 SPAZI) 

SH R){ 1 SH D)| 1 SH I) 
SH A){ 1 SH MH 1 SH E) 
SH T) { 1 SH 0) { 1 SH I } 
{ 1 SH E) { 1 SH S)| 1 SH E) 
1 SH U)( 1 SH Z}{ 1 SH I) 

1 SH N}{ 1 SH E)..." 

:rem 48 

FORI=lTOC-2 : IFF$ (I)<F$ ( 1+1 ) THEN450 

:rem 168 

410 Q$=F$(I+1) :rem 167 

420 FORJ=ITOlSTEP-l : IFF$ ( J) <Q$THENF$ ( J+l) 


{ 

{ 

{ 

{ 

{ 

f 


1 

1 

1 

1 

1 

1 


SH 

SH 

SH 

SH 

SH 

SH 


0} { 
N) { 
N) { 
N) 
C) { 
0 } { 


1 

1 

1 


400 



=Q$ : GOTO450 

: rem 

136 

430 

F$ ( J+l) =F$ (J) :NEXT 

: rem 

179 

440 

F$ ( 1) =Q$ 

: rem 

54 

450 

NEXTI : A=1 :GOTO190 

: rem 

23 

460 

PRINT" (CLR) (GIU' } { 

1 SH SCAMPANTE 



490 U=C-1 : V=INT (U/3) +1 : rem 236 

500 FORI=1TOV:FORJ=OT03 :Q=I+J*V: IFQMJTHEN 
530 : rem 84 

510 E=1 : IFLEFTS (F$ (Q) , 1 ) =Z$THENE=2 

:rem 185 

520 PRINT#4 , Y$MID$ (F$ (Q) ,E, 16) Y$; : IFE-2TH 
ENPRINT#4,Z$; : rem 176 

530 PRINT#4 , " { 5 SPAZI )"; :NEXT : PRINT#4 

:rem 190 

540 NEXT : CLOSE4 : A=1 :GOTO190 : rem 178 

550 END : rem 113 

560 REM MEMORIZZAZIONE LINGUAGGIO MACCHIN 
A : rem 220 

570 AD=830 :FORI=0TO72 :READD:POKEI+AD,D:NE 
XT: RETURN : rem 219 

580 DATA 169,255,133,0,165,55,133,71,165, 
56,133,72,162,1,32,198,255,166,0,232 

: rem 219 

590 DATA 134,0,216,56,165,71,233,22,133,7 
1,176,5, 166,72,202, 134,72,32,207,255 

: rem 207 

600 DATA 164,144,208,22,201,34,208,245,16 
0,0,32,207,255,201,34,240,249,145,71 

: rem 187 

610 DATA 200,192,21,208,242,240,207,32,20 
4,255, 96, 0,0,0 treni 117 


{ 1 SH 0}{ 1 SH K)?" :POKE198, 0 :WAIT19 
8, 1 tGETMTS : IFMT$O"S"THEN190 : rem 49 
470 OPEN4,4,7 : rem 196 

480 PRINT#4, Y$LEFT$ (F$ (0) , 16) Y$" 

{ 3 SPAZI } "MID$ (F$(0),18,2) : PRINT#4, C 
HR$ (20)CHR$ (15) ; : rem 38 




Ecco ia versione per C 64 df un 
popolare gioco elettronico com- 
merciale che vi renderà provetti 
giocatori del famoso sport ameri- 
cano. 

Dopo una breve attesa iniziale il pro- 
grammavi richiede di premere il tasto FI 
per impratichirvi nel gioco, oppure il ta- 
sto F 7 per iniziare una partita. In que- 
st'ultimo caso è possibile selezionare 
una partita contro il computer (1 giocato- 
re) oppure contro un altro avversario (2 
giocatori). 


Se premete FI, entrate in "modo prati- 
ca": vi vengono lanciate 20 palle (un mi- 
sto casuale di lanci veloci, con effetto, 
curvi e diretti) che dovete cercare di re- 
spingere premendo la barra spaziatrice 
nel momento giusto. 

Nel gioco reale, invece, lo schermo è di- 
viso in tre parti: a sinistra si trova il cam- 
po di gioco, nella cui parte alta si trova 
una fila di buche nere. Una palla battuta 
finirà in una di queste buche, ciascuna 
delle quali è contrassegnata da un pun- 
teggio (singolo, doppio, triplo, oppure 
"out"). Per ottenere un cosiddetto "ho- 


me run" la palla ribattuta deve passare 
sopra il centro del rettangolo rosso nella 
parte mediana del campo di gioco. 
Nell'angolo superiore destro dello scher- 
mo vengono visualizzati i punteggi e i 
dati relativi alla partita in corso, e i gioca- 
tori sono rappresentati come la squadra 
di casa e i visitatori (home e visitors, al- 
l'americana). 

Nel rettangolo sottostante è visualizza- 
to il "diamante", che mostra quali basi 
sono occupate dalla squadra al momen- 
to del lancio. 

Se si gioca contro il computer, la partita 
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barra spaziatrice è di forma semicircola- 
re, in modo da dare traiettorie diverse al- 
la palla, in funzione del punto in cui que- 
sta colpisce la mazza stessa. 

La partita con due giocatori avviene al- 
ternativamente con un giocatore che 
controlla la mazza attraverso la barra 
spaziatrice e l'altro che lancia la palla 
premendo uno dei tasti funzione. I tiri 
possibili sono: 


FI tiro veloce 

F3 con cambio di traiettoria 

F5 con effetto 

F 7 tiro curvo 

Con due giocatori la partita dura tre "in- 
ning", la squadra di casa ha colore blu, 
mentre i visitatori hanno colore rosso. 
Buon divertimento! 


dura per tre "out", prima dei quali occor- 
re cercare di totalizzare il massimo pun- 
teggio; il computer seleziona a caso il ti- 
po di lancio, al quale dovete rispondere 
premendo la barra spaziatrice. Vi accor- 
gerete che è molto importante scegliere 
il momento adatto per compiere questa 
operazione e colpire la palla in arrivo, pe- 
na il regalo di uno "strike" alPavversario. 

La "mazza" che muovete attraverso la 

Arcade Baseball 

10 POKE56, 48 :POKE55, 0 :CLR:GOSUB780 

:rem 54 

20 PRINT" { 7 GIU* } *’SPC (14) CHR$ (14) " [<4>] 

{ 1 SH ATTENDERE. . . { 8 SU)" : rem 6 

3 0 FORA= 49152T049999: RE ADB : POKE A, B : C=C+B : 

NEXT : rem 27 

40 IFCO104062THENPRINT" {CLR} { 1 SH E)RRO 
RE NELLE ISTRUZIONI { 1 SH D}{ 1 SH A) 

( 1 SH TU 1 SH A}!": END : rem 155 

50 DATA 173,4,220,141,166,3,169,18,141,5, 

212, 169, 100, 141, 1,212, 169, 0,133 

: rem 189 

60 DATA 187,133,188,133,189,173,30,208,32 
,199,192,169,0,141,167,3,32,85,193 

: rem 139 

70 DATA 32,15,194,32,254,194,32,182,194,3 
2,15,194,173,120,3,201,250,208,8 

: rem 4 

80 DATA 169,0,141,162,3,76,152,192,174,16 
7,3,208,114,201,76,176,220,201, 69 

: rem 62 

90 DATA 144,216,169,27,141,163,3,169,37,1 
41, 164, 3, 162, 7, 173, 100, 3, 205, 163 

: rem 7 

100 DATA 3,144,8,205,164,3,176,3,76,38,19 
2,173,163,3,24,105,24,141,163 

:rem 107 

110 DATA 3,173,164,3,24,105,24,141,164,3, 
202, 16,219, 169,2,141,21,208, 173 

: rem 189 

120 DATA 100,3,56,233,9,162,255,232,56,23 
3, 24, 17 6, 250, 18 9, 175, 192, 141, 162, 3 

: rem 108 

130 DATA 120,169,240,141,26,208,169,49,14 
1,20, 3, 169, 234, 141, 21, 3, 169, 129, 141 

:rem 150 

140 DATA 13,220,88,96,1,5,2,5,3,5,2,5,1,2 
01,30,240,3,76,38 : rem 2 

150 DATA 192,169,4,141,162,3,76,152,192,1 
69,2, 141,21,208, 169,1,141,28,208 

: rem 1 1 

160 DATA 160,7,169,0,153,110,3,136,16,248 
,169, 90, 141, 101, 3, 169, 230, 141, 121 

: rem 3 9 

170 DATA 3,169,227,141,131,3,169,0,141,40 
,208, 169, 12, 141, 37, 208, 169, 11, 141 

: rem 47 

180 DATA 38,208,169,127,141,13,220,169,21 
4,141,20,3,169,193,141,21,3,169,27 

: rem 108 

190 DATA 141,17,208,169,129,141,26,208,16 
9, 250, 141, 18, 208, 169, 117, 141, 100, 3, 16 


9 : rem 5 9 

200 DATA 130,141,120,3,169,129,141,26,208 
, 96, 165, 187,208,26, 169, 127, 141,0,220 

: rem 201 

210 DATA 169,0,141,1,220,173,1,220,201,23 
9, 240,1, 96, 165, 18 9, 208, 14, 230, 187 

:rem 41 

220 DATA 230,189,238,101,3,173,101,3,201, 

145.240.1. 96.169. 0. 133. 187.96.173 

:rem 51 

230 DATA 165,3,240,24,169,0,133,162,32,18 
9, 193, 41, 63, 9, 64, 197, 162,208,252 

:rem 20 

240 DATA 32,189,193,41,3,170,76,147,193,1 

69.255. 141.0. 220. 169. 0. 141. 1.220 

: rem 3 

250 DATA 169,254,141,0,220,173,1,220,201, 
248, 176, 234, 73, 255, 74, 74, 74, 162, 255 

:rem 162 

260 DATA 232,74,144,252,134,2,189,206,193 
, 133,5,189,210, 193, 133, 6, 189,202, 193 

:rem 221 

270 DATA 133,253,169,0,133,254,169,20,133 
,248, 169,224, 141, 130,3, 169, 0, 133,251 

:rem 201 

280 DATA 133,252,169,3,141,21,208,96,173, 
166,3,10,10,56,109,166,3,141,166 

: rem 6 

290 DATA 3,96,200,250,180,200,5,0,0,248,0 
,0,0,255,169,1,141,25,208 :rem 138 
300 DATA 169,0,133,3,160,7,162,14,185,100 
,3, 157, 0,208, 185, 120, 3, 157,1: rem 38 
310 DATA 208,185,110,3,10,102,3,185,130,3 
, 153,248,7,202,202, 136, 16,227,165 

: rem 2 9 

320 DATA 3,141,16,208,169,250,141,18,208, 
230,162,76,188,254,198,247,240,1,96 

: rem 173 

330 DATA 169,90,133,247,32,39,193,165,253 
,24,109, 140,3, 141,140,3,173,120,3 

: rem 4 8 

340 DATA 101,254,141,120,3,174,167,3,208, 

26.201.66.208.22.169.0. 133.254.169 

: rem 9 6 

350 DATA 50,133,253,165,252,48,6,169,60,1 
33,251,208,4,169,190,133,251,173,150 

:rem 212 

360 DATA 3,24,101,251,141,150,3,173,100,3 
, 101,252,141, 100,3,201, 16,240, 4 

: rem 14 9 

370 DATA 201,217,208,17,165,251,73,255,24 
,105,1, 133, 251, -165, 252, 73, 255, 105, 0 

: rem 14 6 
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380 DATA 133, 2 52, 198, 248, 208, 60,169, 20, 13 
3,248, 165,251,24,101,5, 133, 251, 165, 25 

2 : rem '51 
390 DATA 101,6,133,252,165,254,16,21,173, 

130, 3,201,224,240, 6,206, 130,3,76 

: rem 236 

400 DATA 181,194,169,226,141,130,3,76,181 
, 194, 173, 130,3,201,226,240, 6,238, 130 

:rem 198 

410 DATA 3,76,181,194,169,224,141,130,3,9 

6. 165. 188.208. 67. 173. 30.208.41.3 

:rem 23 

420 DATA 201,3,208,58,169,0,133,5,133,6,2 

30. 188.173.100.3.56.237.101.3 

: rem 95 

430 DATA 24,105,15,16,2,169,0,201,28,144, 
2, 169,27, 10, 170, 189,22,195,133 

: rem 154 

440 DATA 251,189,23,195,133,252,169,128,1 
41, 4, 212, 169, 12 9, 141, 4, 212, 169, 255, 13 

3 : rem 64 

450 DATA 254,169,120,133,253,96,173,120,3 

,201, 120,208, 16, 173, 100,3,201, 113, 14 4 

:rem 225 

460 DATA 9,201,121,176,5,169,1,141,167,3, 
96, 64,255, 87,255, 100,255, 113,255 

: rem 2 1 

470 DATA 126,255,139,255,152,255,165,255, 
188,255,201,255,214,255,227,255,240 
, : rem 187 

480 DATA 255,0,0,0,0,16,0,29,0,42,0,55,0, 
68, 0, 91,0,104,0,117,0 -.rem 170 

490 DATA 130,0,143,0,156,0,169,0,192,0,19 
2,0 : rem 91 

500 ML$=" [<I>] "+CHR$ (8) +" [<X>] <"+CHR$ (3) + 
" [<2>] X{ 1 SH J } " +CHR$ (16) +CHR$ (248)+ 
"L[<B>] [<T>] " : POKE835, 0 : rem 233 

510 POKE836, 208 :POKE830, 0 :POKE831, 216 :POK 
E828, 0 :POKE82 9, 56 : POKE56334, 0 

:rem 42 

52 0 POKE1, 51 :ML$=ML$ : SYS (PEEK (51) +256*PEE 
K (52) ) :P0KE1, 55 :POKE56334, 1 :rem 170 

530 F0RI=12568T012 671 : READJ : POKEI, 255-J:N 
EXT : rem 185 

540 F0RI=12672T012727: READJ: POKEI, J:NEXT 

:rem 239 

550 DATA 0,115,219,219,219,219,113,0,0,11 
1,102,102,102, 102,198,0 : rem 37 

560 DATA 149,149,149,149,165,170,170,170, 
86,86,86,86, 90, 170,170,170 : rem 14 

570 DATA 170,170,170,165,149,149,149,149, 
170,170,170,90,86,86,86,86 :rem 15 
580 DATA 130,130,130,130,130,170,170,170, 

128.0. 0.0.0.0.0.0 : rem 226 

590 DATA 255,255,255,126,060,024,0,0,1,0, 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 : rem 167 
600 DATA 0,0,0,0,0,0,0,128,255,255,255,12 

6. 60.24.0. 0.213.213.245.245.253.253 

: rem 102 

610 DATA 255,255,87,87,95,95,127,127,255, 
255,125,125, 125, 125, 125,125, 125, 125 

: rem 187 

620 DATA 126,255,255,255,255,255,255,255, 
255,255,255,255,255,255,255, 126 

: rem 0 


630 DATA 127,255,255,255,255,255,255,127, 
254,255,255,255,255,255,255,254 

: rem 1 

640 Q=14336 : rem 41 

650 READB : IFB<OTHENFORA=1TOABS (B) :POKEQ,0 
: Q=Q+1 :NEXT : GOTO650 ' : rem 83 

660 IFB=256THENFF=1 :GOTO730 :rem 125 

670 POKEQ,B:Q=Q+l:GOTO650 : rem 14 

680 DATA -25,60,0,0,255,0,0,85,0,0,85,0,0 
,20,-51,20, 0, 0,255, 0,0,255, 0, 0,85, 0, 0 

: rem 156 

690 DATA 20,-51,20,0,0,85,0,0,85,0,0,255, 
0, 0, 60,-66,255,0,7,255,224,31,255,248 

:rem 206 

700 DATA 63,255,252,127,255,254,127,255,2 
54,255,255,255,255,255,255,239,256 

: rem 148 

710 DATA 129,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
129 :rem 30 

720 DATA 128,0,0,0,0,0,0,128,1,0,0,0,0,0, 
0,1 : rem 31 

730 POKE53272, 23 :POKE53270, 2 00 : rem 133 

740 CL (1) =10 :CL (2) =14 :FL=0 :RM=20 :PL=2 

: rem 46 

750 F0RA=54272T054295 :POKEA, 0 :NEXT : POKEA, 
15:POKE54280, 17 :POKE54284, 18 : rem 113 
760 IN=1 : SK=0 : CK=0 : Pl$=" {RVS }HOME" : P2$="V 
ISITOR" :GOSUB770 :GOTO860 : rem 177 

770 IFFF=1THENRETURN : rem 54 

780 PRINT" {CLR} { 3 GIU ' } {RED } "SPC ( 6) ; : POK 
E53281,0 :POKE53280, 0 : rem 137 

790 PRINT" (RVS) [<V>] [<C>] {OFF) { 2 SPAZI} 
{RVS} [<K>] [<D>] [<F>] {OFF} [<F>] t<D>] 

{RVS} [<D>] [<F>] {OFF} [<F>] { 2 SPAZI} 
{RVS} [<V>] [<C>] {OFF} { 2 SPAZI} {RVS} 
[<K>] [<D>] [<C>] {OFF} { 2 SPAZI} {RVS} 
[<K>] [<D>] [<I>] {OFF} [<V>] "SPC (11) " 
{WHT} {RVS} [<K>] [<C>] [<V>] {OFF} [<K>] 
{RVS} [<K>] [<C>] [<V>] {OFF} [<V>] {RVS} 
[<K>] "; : rem 4 9 

800 PRINT" {OFF} [<K>] { 3 SPAZI } {RVS } [<K>] 
[<C>] [<V>] {OFF} [<K>] {RVS} [<K>] {OFF} 
[<K>] {RVS} [<K>] {OFF} [<K>] {RVS} [<K>] 
[<C>] {OFF} [<F>] "SPC (12) "{BLU} {RVS} 
[<K>] {OFF} [<K>] {RVS} [<K>] {OFF} [<K>] 
{RVS} [<K>] [<D>] [<C>] {OFF} { 2 SPAZI} 
{RVS} [<K>] {OFF} [<K>] [<D>] [<F>] {RVS} 

[ <K> ] {OFF} [<K>] {RVS} [<K>] {OFF} [<K>]"; 

: rem 7 8 

810 PRINT" {RVS} [<K>] {OFF} [<K>] {RVS} [<V>] 
{OFF} [<V>] {RVS} [<K>] {OFF} [<K>] "SPC(1 
3) " [<C>] [<V>] [<C>] [<V>] [<C>] [<V>] 

[<C>] [<V>] { 2 SPAZI} {RVS} [< 2 I>] 

{ OFF } { 2 SPAZI} [<C>] [<V>] [<C>] [<V>] 
[<C>] {RVS} [<I>] {OFF} [<V>] { 2 SPAZI) 
[<C>] {RVS } [< 2 I>] {OFF} [<V>] 

{ 2 GIU 1 } "SPC (9) ; :rem 232 

820 PRINT" {RED } {RVS } [<K>] [<D>] [<F>] {OFF} 
[<F>] {RVS} [<V>] [<C>] {OFF} [<D>] {RVS } 
[<D>] [<F>] {OFF} [<F>] {RVS} [<K>] [<D>] 
[<I>] {OFF} [<V>] {RVS} [<K>] [<D>] [<F>] 
{OFF } [<F>] {RVS} [<V>] [<C>] {OFF} {RVS} 
[<K>] {OFF} [<K>] { 2 SPAZI} {RVS} [<K>] 
{OFF} [<K>] "SPC(10) "{WHT} {RVS} [<K>] 
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[<C>] [<V>] (OFF) [<V>] (RVS } [<K>] " ; 

: rem 108 

830 PRINT" [<C>] [<V>] {OFF} [<K>] [<C>] {RVS} 
[<C>] {OFF} [<I>] {RVS} [<K>] [<C>] {OFF} 
[<F>] {RVS} [<K>] [<C>] [<V>] {OFF) [<V>] 
{RVS} [<K>] [<C>] [<V>] {OFF} [<K>] {RVS} 
[<K>] {OFF} [<K>] { 2 SPAZI} {RVS} [<K>] 
{OFF} [<K>] ”SPC(10) "{BLU} {RVS} [<K>] 
{OFF} [<K>] {RVS} [<K>] {OFF} [<K>] {RVS} 
t<K>] {OFF} [<K>] {RVS} [<K>] {OFF} [<K>] 
[<D>] [<F>] " ; : rem 113 

840 PRINT" {RVS} [<K>] {OFF} [<K>] {RVS} [<K>] 

{ OFF } [<K>] { 2 SPAZI} {RVS} [<K>] {OFF} 
[<K>] {RVS} [<K>] {OFF} [<K>] {RVS} [<K>] 
{OFF} [<K>] {RVS} [<K>] {OFF} [<K>] {RVS} 
[<K>] {OFF} [<K>] { 2 SPAZI} {RVS} [<K>] 
{OFF} [<K>] "SPC(10) " [<C>] {RVS} 

[< 2 I>] {OFF} [<C>] [<V>] [<C>] [<V>] 
{RVS } [< 2 I>] {OFF } [<C>] { RVS } 

[< 2 I>]"; :rem 70 

850 PRINT" {OFF} [<V>] [<C>] {RVS} [< 2 I>] 
{OFF} [<C>] [<V>] [<C>] [<V>] [<C>] {RVS} 
[< 2 I>] {OFF} [<V>] [<C>] {RVS} [< 2 I>] 
{OFF} [<V>] RETURN : rem 52 

860 PRINTCHR$ (14) "{ 4 GIU ' } "SPC ( 12 ) " [<4>] 

{ 1 SH P } RATICA{ 5 SPAZI} { 1 SH F}1": 
PRINTSPC ( 12 ) " { 2 GIU'H 1 SH G}IOCO 
{ 7 SPAZI }{ 1 SH F } 7" : rem 15 

870 POKE198, 0 : WAIT198, 1 :GETMT$ : IFMT$<>" 
{Fi } "ANDMT$<>" {F7 } "THEN870 : rem 150 

980 IFMT$=" {FI } "THENFL=1 : IN$="1" :GOTO920 

: rem 222 

890 C$="{ 14 SPAZI}" :PRINTCHR$ (142) " 

{ 4 SU} "SPC (12) C$ : PRINT" { 2 GIU'} "SPC 
(12) C$" { 4 SU}" : rem 120 

900 PRINTSPC (13) " { 2 GIU ’ } {RVS } 1 {OFF ) O 
{RVS} 2 {OFF} GIOCATORI?" : rem 1 

910 POKE198, 0 : WAIT198, 1 :GETIN$ : IFIN$=""OR 
IN$<"1"ORIN$>"2"THEN910 :rem 245 

920 NP=VAL(IN$) :POKE933,- (NP=1) : PRINT" 

{ CLR } " ; :POKE53280, 2 :POKE53281, 1 : TE=6 : 
B$="" :rem 245 

930 POKE53272, 28 :POKE53282, 3:POKE53283, 0 : 

POKE53270, PEEK (53270) ORI 6 :rem 15 

940 W=1063 :POKEW, 160 : A$=" {RVS } {OFF}" 

: rem 6 6 

950 POKEW+54272, 6 :C$=" {RVS } {CYN} 

{ 26 SPAZI} {RED} ”:D$="{RVS} 

{ 12 SPAZI}" : rem 217 

960 F0RU=1T02 : F0RI=1T012 : PRINTCS ; :POKE646 
, TE :PRINTD$ : SM=W+40*I rPOKESM, 160 

:rem 158 

97 0 P OKE SM+54272 , TE :NEXTI : TE=5 : W=1543 :NEX 
TU:PRINTC$" {GRN}"D$" {HOME}" : rem 34 
980 PRINT" { 11 GIU' }"SPC(27) "{RED} {RVS} 

{ 12 SPAZI} {HOME} {GIU' } {WHT} " :POKE154 
3,160 :POKE55815, 2 : rem 48 

990 PRINT" {RVS} {RED} 1B {OFF}#${RVS} 2B 

{OFF } #$ { RVS } 3B {OFF } #$ {RVS } 2B {OFF} 

#$ { RVS } 1B" :rem 144 

1000 PRINT" [<3>] ' < {DES} ' ( {DES} ' ( {DES} ' ( 

{DES} ' ({DES} ' ({DES} ' ({DES} ' ({DES} ' (" 
: PRINT" %& {DES } %& {DES } %& {DES } %& {DES } % 
& {DES } %& {DES } %& {DES } %& {DES } %&" 

: rem 10 9 


1010 PRINT" {HOME} { 8 GIU' } {RED} "SPC (12) " 

{ RVS } { 2 SPAZI} {GIU' } { 2 SIN} {RVS} 

{ 2 SPAZI} {GIU' } { 2 SIN} { 2 SPAZI}": 
PRINT" { 2 GIU' } [<6>] { 4 GIU' } [<3>] 0" 
SPC (24) "1" : Y=24 :rem 250 

1020 X=1:F0RI=1T06:F0RZ=1T0X:B$=B$+A$:NEX 
TZ :PRINTB$"0"; :PRINTTAB (Y) "1"B$:B$=" 
" : rem 228 

1030 Y=Y- 1 : X=X+ 1 : NEXT I : P RINT " { RVS ) 

{ 7 SPAZI} {OFF } 0"SPC ( 10) "1{RVS} 

{ 7 SPAZI} {HOME} { 14 GIU'} {WHT}"; 

: rem 149 

1040 IFFL=1THENPRINT" {HOME} { 2 GIU'} "SPC ( 
29) "{RVS} {BLU}P {GIU' }R{GIU' }A{GIU' }T 
{GIU' } I {GIU ' }C {GIU ' } A{GIU' } "rGOTOll 
0 0 : rem 8 0 

1050 PRINTSPC (32) "{OFF} {GRN}- .":PRINTSPC 
(31) "-{RVS} { 1 SH N) {OFF } 3 {RVS } 

{ 1 SH M} {OFF} .”:PRINTSPC(30)"-{RVS} 
{ 1 SH N} {OFF} * {RVS } {OFF}, {RVS} 

{ 1 SH M| {OFF} . " : rem 50 

1060 PRINTSPC (29) "-{RVS} { 1 SH N}{OFF}* 

{ RVS } { 3 SPAZI} {OFF}, {RVS} { 1 SH M} 
{OFF} .":PRINTSPC(28) "-{RVS} { 1 SH N} 
{OFF } * {RVS } { 5 SPAZI} {OFF}, {RVS} 

{ 1 SH H| {OFF} : rem 86 
1070 PRINTSPC (28) "{WHT} {GRN} 5"SPC (3) " 

{ RVS } { 1 SH C} "SPC (3) " {OFF } 6 {WHT } 
{SIN} {GRN}": PRINTSPC (28) ", {RVS} 

{ 1 SH M) {OFF} . {RVS} { 5 SPAZI} {OFF}- 
{RVS } { 1 SH N } { OFF } * " :rem 47 

1080 PRINTSPC (29) ", {RVS} { 1 SH M}{OFF}. 
{RVS } { 3 SPAZI} {OFF}-{RVS} { 1 SH N} 
{OFF}*":PRINTSPC(30) ", {RVS} { 1 SH M} 
{OFF}. {RVS} {OFF } - { RVS } { 1 SH N} 

{OFF}*" : rem 81 

1090 PRINTSPC (31) ", {RVS} { 1 SH M}{OFF}4 

{ RVS } { 1 SH N} {OFF}*" :PRINTSPC (32) ", 
{GRN}+*(HOME} {BLU}" :rem 27 

1100 GOSUB1600 : IFFL=1THEN1220 : rem 198 

1110 IFTEMP=1THENTEMP=0 :GOTO1210 :rem 255 
1120 IFOUT<3THEN1210 :rem 173 

1130 IFNP=1THEN1660 :rem 92 

1140 IFIN>=3ANDCK=1 ANDS ( 1 ) OS (2 ) THEN1 660 

:rem 93 

1150 OUT=0 : TEMP=1 : POKEFB, 32 :POKESB, 32 :POK 
ETB, 32 :rem 171 

1160 PRINT" {HOME} { 14 GIU' } {RVS} {CYN} 

{ 4 SPAZI }CAMBIO BATTITORI" :FORI=lTO 
1000: NEXT :rem 93 

1170 PRINT" {SU} "SPC (4) "{RVS} { 16 SPAZI}": 
IFNP=1THENCK=0 : IN=IN+1 : PL=1 :GOTO1190 

: rem 110 

1180 CK=CK+1 : IFCK=2THENCK=0 : IN=IN+1 

:rem 112 

1190 IFPL=1THENPL=2 :P1$=" { RVS} HOME" :P2$=" 
VISITOR" :GOTOHOO :rem 255 

1200 PL=l:Pl$="HOME" :P2$="{RVS}VISITOR" :G 
OTOllOO :rem 46 

1210 IFPEEK (53250) >90THENFORA=PEEK (53250) 
TO90STEP-1 :POKE53250, A:NEXT : rem 108 

1220 SYS49152 : IFPEEK (930) THENPOKE54283, 16 
:POKE54283, 17 :rem 158 

1230 IFFL=1THENRM=RM-1 : PRINT" (HOME) 
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1240 

1250 

1260 

1270 

1280 

1290 


{ 18 GIU ' } {GRN} "SPC (28) " {RVS } PALLE 


"RM" {SIN} {RVS} ” 

: rem 

194 

IFFL=1ANDRM=0THEN1 6 9 0 

: rem 

52 

IFFL=1THEN1210 

: rem 

74 

PRINT" {HOME }":KT=54272 

: rem 

199 

MT=PEEK ( 930 ) : IFMT>4THENOUT=OUT+l 

: SK= 

0 :GOTOHOO 

: rem 

200 

IFMT=4THENGOSUB158 0 

: rem 

233 

IFMT=0THENSK=SK+1 : IFSK= 

3THENOUT- 

OUT+ 


1 : SK=0 : GOTOllO 0 : rem 118 

1300 IFMT=0THEN1 100 :rem 82 

1310 TM=MT : SK=0 :rera 137 

1320 TE=160 : ET=1 60 : G0=CL (PL) :rem 68 

1330 A=2017 :FB=1822 : SB=1617 :TB=1812 :P1=PE 
EK(FB) :P2=PEEK(SB) :P3=PEEK(TB) 

: rem 143 

1340 GOSUB1510 :GOSUB1530 :B1=205 :B2=206 : B3 
=205 :M0=A-39 :M1=FB-41 :M2=SB+39 

: rem 2 4 

1350 M3=TB+41 :G1=5 :G2=5 :G3=5 :rem 27 

1360 IFP1=160THENB1=160 :G1=CL (PL) 

: rem 143 

1370 IFP2=160THENB2=160 :G2=CL (PL) 

: rem 147 

1380 IFP3=160THENB3=160 :G3=CL(PL) 

: rem 151 

1390 X=CL (PL) :F0RI=1T04 :GOSUB1530 :GOSUB15 
7 0 : rem 151 

1400 IFMT=4THENGOSUBl 640 : rem 224 

1410 POKEMO , TE : POKEMO+KT , G0 : M0=M0-3 9 : POKE 
MI , B1 : POKEM1+KT, Gl : rem 111 

1420 M1=M1-41 : POKEM2 , B2 : POKEM2+KT, G2 :M2=M 
2+39 : POKEM3, B3 : POKEM3+KT, G3 :M3=M3+41 

: rem 103 

1430 NEXT : GOSUB1 5 3 0 : POKEFB, ET : POKEFB+KT , G 



0 

: rem 

158 

1440 

IFB1=160THENPOKESB, 160 

: POKESB+54272 , 


Gl 

: rem 

38 

1450 

IFB2=160THENPOKETB, 160 

:POKETB+54272, 


G2 

: rem 

43 

1460 

IFB3=160THENPOKEA, 160 : 

POKEA+54272 

,G3 



: rem 

132 

1470 

IFMT>1THENTE=2 0 6 : ET=32 

: rem 

125 

1480 

IFPEEK (A) =160THENS (PL) 

=S (PL) +1 : POKEA 


,43: POKEA+KT , 5 : GOSUB1 5 9 0 : GOSUB 1600 



: rem 

75 

1490 

TM=TM-1 : IFTM=0THEN1100 

: rem 

115 

1500 

G0=5:GOTO1330 

:rem 

233 

1510 

PRINT" {HOME} { 14 GIU'} 

"SPC (33 ) " " 




: rem 

122 


1520 PRINT" { 4 GIU' } "SPC (28) " "SPC (9)" " : 
PRINT" { 4 GIU ' } "SPC (33) " {GRN} + (HOME ) 
" : RETURN : rem 2 8 

1530 PRINT" (HOME } { 15 GIU ' } "SPC (32) ; 

: rem 131 

1540 PRINT" {RVS H GRN }{ 1 SH N ) {OFF } 3 { RVS } 
{ 1 SH MHGIU'H 4 SIN} { 1 SH N} 

{OFF } * {RVS } {OFF ) , {RVS } { 1 SH M) 

{ GIU 1 } { 6 SIN) { 1 SH N} {OFF} * {RVS } 

{ 3 SPAZI } {OFF} , {RVS} { 1 SH M}{GIU'} 
{ 8 SIN } { 1 SH N} {OFF}* {RVS} 

{ 5 SPAZI} {OFF}, {RVS} { 1 SH M}" 

:rem 37 


1550 PRINT" {GIU' }"SPC(29) "{RVS} { 1 SH M} 
{OFF}. {RVS} { 5 SPAZI} {OFF} -{RVS} 

{ 1 SH NHGIU'H 8 SIN } { 1 SH M} 
{OFF}. {RVS} { 3 SPAZI} {OFF} -{RVS} 

{ 1 SH N}" : rem 26 

1560 PRINTSPC(31) "{RVS} { 1 SH M}{OFF). 
{RVS} {OFF } - { RVS } { 1 SHNHGIU'} 

{ 4 SIN } { 1 SH M} {OFF } 4 {RVS } { 1 SH N 
{ HOME } " : RETURN : rem 173 

1570 POKE54273, 40 :POKE54277, 1 :POKE54296, 1 
5 :POKE54276, 128 :POKE54276, 12 9: RETURN 

: rem 240 

1580 POKE54287, 40 :POKE54291, 220 :POKE54290 
, 128:POKE54290, 12 9:RETURN : rem 72 
1590 POKE54273, 70 :POKE54277, 41 :POKE54296, 
15 : POKE5427 6, 16 :POKE54276, 17 : RETURN 

:rem 193 

1600 IFFL=1THENPRINT" {HOME} { 18 GIU'} 

{ GRN } " SPC ( 2 8 ) " { RVS } P ITCHES "RM : RETURN 

:rem 121 

1610 PRINT" {HOME} {GIU' } {BLU} "SPC (28) P2$" 
{RVS } "S (2) : PRINTSPC (28) " {GIU' }"P1$" 
{RVS } { 3 SPAZI } "S ( 1 ) : rem 220 

1620 PRINTSPC (28) "{ 2 GIU ' } { RVS } INNING "I 
N: PRINTSPC (28) "{GIU* } {RVS } STRINE "SK 

: rem 8 

1630 PRINTSPC (28) "{GIU' } {RVS}OUT 

{ 4 SPAZI }"OUT: RETURN : rem 105 

1640 POKE53281, X: IFX=1THENX=CL (PL) : RETURN 

: rem 106 

1650 X=1 : RETURN :rem 172 

1660 PRINT" {HOME }"SPC (5) " {RVS} {CYNJG A M 
E { 2 SPAZI }0 V E R{ 13 GIU'}" 

: rem 6 9 

1670 PRINT" {RVS} { 3 SPAZI }UN TASTO PER Gl 
OCARE " :POKE198, 0 :WAIT198, 1 :GETMT$ :C 
LR : rem 143 

1680 POKE53280, 0 : POKE532 8 1 , 0 : PRINT" {CLR} " 
:GOTO730 :rem 207 

1690 PRINT" {HOME} {RVS} {CYN} GAME 

{ 2 SPAZI }0 V E R{ 13 GIU' }" :G0T0167 
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di C. McGuyer 

trad. e adatt. di L. Priotto 


State lavorando alla costruzio- 
ne di un grattacielo e vi trovate 
intrappolati nelle sue strutture 
all’ultimo piano mentre sta scen- 
dendo la sera: riuscirete a scen- 
dere indenni fino al piano terra, 
evitando gli attacchi di un volati- 
le gigante e del robot di guardia 
alla costruzione? 

E 1 richiesto l'utilizzo di un jo- 
ystick in Porta 2. 

Avete appena terminato di imbullonare 
l'ultima putrella della giornata quando vi 
guardate intorno e vi accorgete di esse- 
re rimasti soli: all'ultimo piano dell'altissi- 
mo grattacielo in costruzione si ode so- 
lo il sibilo del vento nella luce ormai scar- 
sa del sole al tramonto. 

Vi accingete a scendere quando un pen- 
siero vi gela il sangue: proprio ieri è sta- 
to installato nella costruzione un robot 
di guardia, con il compito di distruggere 
ogni eventuale intruso. Oltre a ciò, la co- 
struzione è popolata da combattivi uc- 
cellacci che hanno nidificato nei locali 
vuoti. 

Dovrete affidarvi alla velocità e prontez- 
za di riflessi per riuscire a raggiungere 
sani e salvi l'uscita molti piani sotto di 
voi... 

Potete usare gli ascensori, che di notte 
si muovono a caso tra un piano e l'altro, 
fermandosi altrettanto a caso a un pia- 
no qualunque. Se un ascensore è fermo 
al piano in cui vi trovate, vi basterà salir- 
vi sopra per fare in modo che esso si 
muova: non potete tuttavia sapere a 


priori se l'ascensore si sposterà verso 
l'alto oppure verso il basso. Il robot anti- 
ladro cercherà di fare in modo che cadia- 
te all'esterno dell'edificio e se riesce a 
scorgervi a bordo di un ascensore, 
emetterà una scarica elettrica, che pro- 
vocherà inesorabilmente la vostra fine. 
Dovrete inoltre evitare il pericolo che 
uno degli uccellacci vi artigli e vi traspor- 
ti via in volo, anche mentre siete all'inter- 
no di un ascensore... 

Gli uccellacci e il robot presentano oltre 
a tutto un pericolo combinato: quando 


uno dei primi viene colpito dal robot, pre- 
cipita a peso morto fino a terra, con il ri- 
schio di travolgervi, se vi trovate lungo 
la sua traiettoria. 

iniziate il gioco con cinque vite a dispo- 
sizione, al decimo piano della costruzio- 
ne. Ogni piano guadagnato verso il bas- 
so vi frutterà 100 punti e se riuscite a 
uscire sani e salvi dalla costruzione, po- 
trete riprendere il gioco partendo da un 
piano più alto. 

Note per il caricamento, la dupli- 
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cazione su disco e la digitazio- 
ne del programma 

Se si dispone della cassetta allegata al- 
la rivista, il programma si carica in me- 
moria e si manda in esecuzione nel mo- 
do seguente: 

1 . Posizionare il nastro in corrisponden- 
za dell’inizio del programma. 

2. Spegnere e riaccendere il computer e 
digitare (senza inserire spazi tra le virgo- 
lette): 

LOAD " 11 , 1,1 (RETURN) 

3. A caricamento avvenuto (ricomparsa 
del cursore con la scritta READY) attiva- 
re il programma digitando: 

NEW (RETURN) 

SYS 491 52 (RETURN) 

La cassetta contiene, nello stesso ordi- 
ne in cui appaiono sulla rivista, tutti i pro- 
grammi di questo numero: per ottenerne 
un elenco, con la relativa posizione del 


contanastro, inserire nel registratore la 
cassetta completamente riavvolta, az- 
zerare il contanastro e digitare: 

VERIFY 

Poiché la cassetta sicuramente non 
contiene alcun programma dal nome 
verranno passati in rassegna tutti i pro- 
grammi contenuti attraverso il mes- 
saggio: 

FOUND nome del programma 

Risulta utile annotarsi i nomi dei vari pro- 
grammi e la relativa posizione del conta- 
nastro (sottrarre due o tre unità dal valo- 
re corrispondente all’apparizione de! 
messaggio FOUND), in modo da poter in 
seguito caricare il programma desidera- 
to senza dover necessariamente legge- 
re tutti i programmi precedenti. 

Il programma, a causa dell'area di memo- 
ria occupata, non può essere trasferito 
su disco con una semplice istruzione 
SAVE. Per effettuare il trasferimento su 
disco occorrerà invece caricare e attiva- 
re MLX ( in altra parte della rivista), ri- 


spondere alle sue domande con gli indi- 
rizzi riportati più sotto, premere quindi 
contemporaneamente i tasti SHIFT e L 
per caricare il programma da cassetta, 
e a caricamento avvenuto premere con- 
temporaneamente i tasti SHIFT e S per 
salvarlo su disco. 

Gli abbonati che non dispongono della 
cassetta dovranno invece digitare il pro- 
gramma attraverso MLX. Una volta cari- 
cato e attivato MLX si dovrà rispondere 
alle sue due domande iniziali con i se- 
guenti valori: 

indirizzo iniziale: 49152 
indirizzo finale: 52863 

Una volta salvato il programma su na- 
stro esso potrà essere ricaricato in me- 
moria in qualsiasi momento, senza più 
bisogno di MLX, seguendo le istruzioni 
date più sopra per i possessori di cas- 
setta. 

Si ricorda che se il programma è stato 
salvato su disco, occorre aggiungere il 
nome del file e il numero di periferica 8 al- 
l’istruzione LOAD, mantenendo tuttavia 
l'indirizzo secondario 1 . 


High Rise 

4 9152 : 169, 000, 168, 133,251, 169, 122 
4 9158 : 032, 133,252, 169, 000, 133, 213 
4 9164 : 253, 16 9, 203, 133, 254, 177, 177 
4 917 0 : 253, 14 5,251,200,208,249, 044 
4 917 6 : 230, 2 54, 230, 252, 165,252, 127 
4 9182 : 201, 03 6, 208, 239, 160, 024, 130 
4 9188 : 185, 238, 201, 153, 000, 212, 001 
4 9194 : 136, 01 6, 247, 160,004, 169, 00 6 
4 9200 : 048, 153, 136,202, 136, 016, 227 
4 9206 : 2 50, 032, 23 1, 200, 032, 068, 099 
4 9212 : 229, 169,005, 141, 081, 202, 119 
4 9218 : 169, 04 9, 141, 095,202, 169, 123 
4 9224 : 048, 141,096, 202, 169, 000,216 
4 9230 : 141, 032, 208, 141, 033,208, 073 
4 9236 : 141,235,201, 141, 13 6,201, 115 
4 9242 : 160, 004, 185, 136, 202, 153, 162 
4 9248 : 145, 007, 136, 016, 24 7, 032, 167 
4 9254 : 167, 199, 032,222,198, 173,069 
4 92 60 : 151,201,133,251,032,139, 247 
4 92 66 : 192,024,173, 151,201, 105, 192 
4 9272 : 007, 141, 151, 201, 201, 036, 08 9 
4 9278 : 240, 003, 07 6, 107,192, 169, 14 5 
4 9284 : 001, 141, 151, 201, 07 6, 171, 105 
4 92 90 : 192, 169, 004, 133,252, 162, 02 6 
4 92 96 : 025, 160,000, 169, 028, 14 5, 159 
4 9302 : 251, 202, 240, 01 6, 02 4, 165, 024 
4 9308 : 251, 105,040, 133, 251, 165, 077 
4 9314 : 252, 105, 000, 133,252, 07 6,212 
4 9320 : 147, 192, 096, 162,000,169, 166 
4 932 6 : 02 9, 157, 160, 004, 157, 104, 017 
4 9332 : 005, 157,048, 006, 157 , 248, 033 


4 9338 : 00 6, 157, 192, 007, 232, 224, 236 
4 934 4 : 031, 20 8, 234, 172, 17 6,201, 190 
4 9350 : 192, 010,24 0, 04 5, 185, 166, 012 
4 9356 : 201, 133,251, 200, 185, 166, 0 60 
4 9362 : 201, 133,252, 200, 14 0, 17 6, 032 
4 9368 : 201, 162, 004, 160, 000,169, 144 
4 9374 : 027, 14 5,251, 202,240, 016, 07 9 
4 9380 : 024, 165,251, 105, 04 0, 133, 178 
4 9386 : 251, 165,252, 105,000, 133, 116 
4 9392 : 252, 07 6,221, 192, 07 6, 195, 228 
4 9398 : 192, 160,000, 140, 17 6, 201, 091 
4 9404 : 169, 12 8, 162,000, 157,248,0 92 
4 9410 : 007, 232, 224, 005,208,248, 158 
4 9416 : 1 69, 255, 141, 02 1,20 8, 162, 196 
4 9422 : 000, 17 3, 134, 201, 157, 001, 168 
4 9428 : 208, 232, 232, 024, 173, 134,255 
4 9434 : 201, 105, 032, 141, 134, 201, 072 
4 9440 : 224, 010, 24 0, 003, 07 6,015, 088 
49446 :193,169, 050, 141,134,201, 158 
4 9452 : 169, 255, 141, 028, 208, 169, 24 6 
4 94 58 : 015, 141, 037,208,16 9, 002, 110 
4 94 64 : 141,038,208, 162, 000, 173, 010 
4 947 0 : 135,201, 157, 000, 208, 232, 227 
4 9476 : 232, 024, 173, 135, 201, 105, 170 
4 9482 : 05 6, 141, 135, 201, 22 4, 010, 073 
49488 :240, 003, 076, 061, 193, 169, 054 
4 94 94 : 024, 141, 135, 201, 160, 001, 236 
4 9500 : 185, 095, 202, 153, 162, 006, 127 
4 9506 : 13 6, 016, 247,169, 000, 141, 03 9 
4 9512 : 235, 201, 169, 240, 141, 010, 07 6 
4 9518 : 208, 169, 184, 141, 011, 208, 007 
49524 :169, 12 4, 141, 012, 208, 173, 175 
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4 9530 : 030, 208, 169, 104, 141,013, 019 
4 953 6 : 208, 16 9,020, 141,014,208, 120 
4 954 2 : 141, 015,208, 169, 138, 141, 178 
4 954 8 : 255, 007, 07 6, 216, 193, 138,001 
4 9554 : 072, 162,004, 160,000, 136, 168 
4 95 60 : 208, 253, 202, 208, 250, 104, 097 
4 9566 : 170, 096, 172, 152,201, 185, 110 
4 9572 : 14 6, 20 1,22 1,00 1,20 8, 240, 157 
4 9578 : 009, 200,192,005,240,013, 061 
4 9584 : 14 0, 152,201, 096, 169, 002, 168 
4 9590 : 157, 13 6, 201, 032, 097, 194, 231 
49596 :096, 160, 000, 140, 152, 201, 169 
4 9602 : 096, 165, 197, 201,063,240, 132 
49608 : 005, 201, 004, 240, 007, 096, 241 
4 9614 : 169, 000, 141, 024, 212, 000, 240 
4 9620 : 07 6, 183, 195, 096, 162, 000, 156 
4 9626 : 032, 145, 193, 032,201,195,248 
4 9632 : 032, 105, 196, 032,05 9, 195,07 5 
4 9638 : 032 , 160, 193, 032, 107,194,180 
4 964 4 : 032, 195, 193, 032,027, 197, 14 4 
4 9650 : 032, 17 8, 196, 032 , 18 9, 1 94 , 03 9 
4 9656 : 032, 04 7,200, 18 9, 13 6, 201, 02 9 
49662 :201, 00 1,240, 065, 14 4,002,139 
49668 : 176, 016, 254, 001, 208, 189, 080 
4 9674 : 001, 208, 201, 224, 240, 037, 153 
4 9680 : 032, 097, 194, 07 6,218, 193,058 
4 9686 : 222, 192, 201, 18 9, 192, 201,-195 
4 9692 : 240, 003, 07 6, 218, 193, 189, 17 9 
4 9698 : 137, 201, 157, 136, 201, 032, 130 
4 9704 : 097, 194,032,154,200, 041, 246 
4 9710 : 031, 157, 192, 201, 076, 218, 153 
4 9716 : 193, 169,001, 157, 136,201, 141 
4 9722 : 157, 137,201,032,097,194,108 
4 9728 :076, 218, 193, 222, 00 1,208, 214 
4 9734 : 189, 001, 208, 201, 064,240,205 
4 9740 : 006, 032, 097, 194,076,218, 187 
4 9746 : 193, 169, 000, 157, 136,201, 170 
4 9752 : 157,137,201,032,097, 194,138 
4 9758 : 07 6, 218, 193, 232,232,224,245 
4 97 64 : 010, 24 0, 001, 096, 162, 000, 097 
4 9770 : 096, 160, 005, 185, 14 6,201, 131 
4 9776 : 205, Oli, 208, 240,004, 136, 148 
4 9782 :016,245,096, 173,000,220, 100 
4 97 88 : 04 1,015, 201, Oli, 240, 02 9, 14 9 
4 97 94 : 201, 007,240, 011, 169, 000,246 
4 9800 : 141, Oli, 212, 169, 133, 141, 175 
4 9806 : 2 53, 007, 096, 173, 010, 208, 121 
4 9812 : 201, 245, 240, 248, 032, 244, 078 
4 9818 : 194,032,173, 194, 096, 173, 248 
4 9824 : 010, 208, 201, 023,24 0,234, 052 
4 9830 : 032,017,195,032,17 3, 194,041 
4 9836 : 0 96, 169, 129, 141, Oli, 2 12, 162 
4 9842 : 169, 034, 141, 008, 212, 169, 143 
4 9848 : 128, 141, Oli, 2 12, 09 6, 20 6, 210 
4 9854 : 084, 202, 173,084,202,240, 151 
4 98 60 : 001, 096, 172,082,202,185, 166 
4 98 66 : Oli, 202, 141, 000, 212, 185, 185 
4 9872 : 012, 202, 141, 001, 212, 169, 17 7 
4 9878 : 017, 141,004,212,200,200,220 
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4 9884 : 192, 032,24 0, 009, 140, 082, 147 
4 9890 : 202, 16 9,035, 14 1 , 084 , 202 , 035 
4 9896 : 096, 160, 000, 140,082,202, 144 
4 9902 : 169, 035, 141, 084, 202, 096, 197 
4 9908 : 238, 010, 208, 173,234,201, 028 
4 9914 : 201, 02 0,24 0, 005, 20 1,040, 189 
4 9920 : 240, 00 6, 096, 169, 13 6, 07 6, 211 
4 992 6 : 013, 195, 169, 137, 07 6, 013, 097 
4 9932 : 195, 141,253, 007, 096,206, 142 
49938 :010, 208, 173, 234, 20 1,201, 021 
4 994 4 : 020, 2 4 0,005, 201, 04 0,2 40, 002 
4 9950 : 006, 09 6, 169, 134, 07 6, 013, 012 
4 995 6 : 195, 16 9, 135, 07 6, 013,195, 051 
4 9962 : 032, 14 5, 193,206, 101,202, 153 
4 9968 : 173, 101,202,208,24 5, 169, 122 
4 9974 : 000, 141,101,202,096, 173,255 
4 9980 : 030,208, 141, 030,208, 096, 005 
4 998 6 : 032, 14 5, 193, 238,011,208, 125 
4 9992 : 032, 034, 201, 173,011,208,219 
4 9998 : 201, 24 5, 208, 24 0, 169, 000, 117 
50004 :141, 00 4, 2 12, 169, 17 6, 141, 159 
50010 : 110,202, 172, 081,202, 169, 002 
50016 : 032, 153,216, 005, 13 6, 240, 110 
50022 : 040, 14 0,081,202,032,042, 127 
50028 : 195, 173,030,208,169, 184,043 
50034 : 141, Oli, 208, 169, 064, 141, 080 
50040 :0 13, 208, 141, 012, 208, 169, 103 
50046 : 020, 141, 015, 208, 169, 000, 167 
50052 : 141, 235, 201, 141, 100,202, 128 
50058 : 104, 104, 07 6, 216, 193, 024, 087 
50064 : 162, Oli, 160, 005, 032,240, 242 
50070 : 255, 169,255, 141,027,208, 181 
5007 6 : 160, 000, 185, 141,202,240, 060 
50082 : 007, 032, 2 10, 255, 200, 07 6, 174 
50088 : 158, 195, 032, 183, 195, 169, 07 6 
500 94 : 000, 141, 027, 208, 104, 104,24 6 
50100 : 07 6, 058, 192, 169, 000, 141, 048 
50106 : 024, 212, 173, 000, 220, 041, 088 
50112 : 016, 208, 244, 169, 127,141,073 
50118 : 024, 212, 096, 173,030,208, 173 
50124 : 141,158,201, 208, 004,096, 244 
50130 : 07 6, 102,196, 160, 004, 173, 153 
50136 : 158,201,217, 161,201,240, 114 
50142 : 073, 20 1,0 9 6, 24 0,23 9, 136, 183 
50148 : 016, 241, 160, 000,17 3,010, 060 
50154 : 208, 217,000, 208 , 14 4 , 037 , 024 
50160 : 05 6, 24 9, 000, 208, 201, 004, 190 
50166 : 17 6, 022, 173, 011, 208, 217, 029 
50172 : 001,208, 144, 031, 05 6,24 9, 173 
50178 : 00 1,208, 201, 010, 17 6, 00 6, 092 
50184 : 185, 001 , 208, 141,011,208, 250 
50190 : 200, 200, 192,010,208,212, 012 
50196 : 0 96, 05 6, 185,000,208,237,034 
50202 : 010, 208, 07 6, 24 4, 195, 185, 17 6 
50208 : 00 1,208, 237, 011,208, 07 6, 005 
50214 : 004, 196, 138, 072,162,050, 148 
50220 : 169, 12 9, 153,248,007,140, 122 
50226 : 236, 201, 032, 154,200, 141,246 
50232 : 008, 212, 169, 12 9, 141, 011, 214 


50238 

50244 

50250 

50256 

50262 

50268 

50274 

50280 

50286 

50292 

50298 

50304 

50310 

50316 

50322 

50328 

50334 

50340 

50346 

50352 

50358 

50364 

50370 

50376 

50382 

50388 

50394 

50400 

50406 

50412 

50418 

50424 

50430 

50436 

50442 

50448 

50454 

50460 

50466 

50472 

50478 

50484 

50490 

50496 

50502 

50508 

50514 

50520 

50526 

50532 

50538 

50544 

50550 

50556 

50562 

50568 

50574 

50580 

50586 


: 212, 032, 145, 193, 172, 236, 028 
: 201, 169, 130, 153, 24 8, 007, 208 
: 140, 23 6, 201, 032, 154, 200, 013 
: 141, 008,212, 032, 14 5, 193, 043 
: 172, 23 6, 201, 202, 01 6, 208, 097 
: 169, 128, 153, 248,007, 141, 170 
: Oli, 212, 104, 170,07 6,066,225 
: 195, 173, 237, 201, 20 6, 237, 073 
: 201, 240, 001, 096, 169,003, 052 
: 141,237,201, 032,213, 199, 115 
: 032, 036, 199, 160,005,185,227 
: 14 6, 201, 205, 013, 208, 24 0, 117 
: 004, 136, 016,24 5,096, 173, 036 
: 159, 201, 208, 017, 173, 012, 142 
: 208, 201, 24 8, 240,004,238, 005 
: 012, 208, 096, 169, 001, 141, Oli 
: 159,201,096, 173,012,208,239 
-.201,024,2 4 0, 004,20 6, 012,083 
: 208, 096, 169, 000, 141, 159, 175 
: 201, 096, 206, 234, 201, 173, 007 
: 234, 201, 240, 005,201, 020, 059 
: 240, 069, 096, 169, 131, 141, 010 
: 254, 007, 169, 139, 141,255, 135 
: 007, 169,041, 141, 234, 201, 225 
: 173,015,208, 201,050, 144,22 9 
: 040, 201, 120, 17 6, 03 6, 172, 189 
: 080,202,185, 007,202,141, Oli 
: 014, 212, 185, 008,202, 141, 218 
:015, 212, 169, 017, 141, 018, 034 
: 2 12, 200, 200, 192, 004,24 0, 004 
: 004,140, 080, 202, 096, 160, 156 
: 000, 14 0, 080, 202, 096, 169, 167 
: 032, 141, 018, 212, 096, 169, 154 
: 132, 141,254, 007, 169, 138, 077 
: 141,255, 007, 096, 169, 064,230 
: 141, 013, 208, 169, 000, 141, 17 6 
: 235, 201, 07 6, 080, 197, 173, 216 
: Oli, 208, 2 01, 22 4, 24 0, 001, 14 5 
: 096, 138,072,032,058,201, 119 
: 141,001,212,032,14 5, 193,252 
: 056, 173,011, 208,233, 008, 223 
: 141,011,208, 173,015,208, 040 
: 201, 050, 14 4,005,233, 008, 187 
: 141, 015, 208, 173,013,208,054 
: 201, 072, 14 4, 196,05 6,233,204 
: 008, 141,013,208,032,222, 188 
: 198,032,017, 199, 160,000, 17 6 
: 169, 193, 133, 251, 169, 007, 242 
: 133,252,185, 075, 202,141,058 
: 001, 212, 169, 017, 141,004, 132 
:212, 169, 028, 145, 251, 02 4, 167 
: 165,251, 105, 007, 133,251, 000 
: 201, 228, 24 0, 003,07 6, 107,205 
: 197,238,097, 202, 17 3, 160, 167 
: 201, 206, 160, 201, 016, 157, 047 
: 169,004, 141, 160,201, 173, 216 
: 030,208,162,000, 169, 02 9, 228 
: 157, 192, 007, 232, 22 4, 031, 223 
: 208, 24 6, 169, 004, 141, 160, 058 


50592 : 201, 173, 030, 208, 169, 000, 173 
50598 : 141, 097, 202, 162, 001, 222,223 
50604 : 162,00 6, 189, 162, 006,201, 130 
50610 : 04 9, 24 0, 082,201,04 7,240, 013 
50616 : 059, 162,002,254,017,005, 171 
50622 : 18 9, 01 7, 005, 201, 058, 2 40, 132 
50628 : 077, 162, 000, 189, 017, 005, 134 
50634 : 221, 14 5, 007,240,024,14 4,215 
50640 : 014, 18 9, 017,005, 157,14 5, 223 
50646 : 007, 157,136,202,232,224, 148 
50652 : 005, 208, 242, 173, 083,202, 109 
50658 : 208, 063, 104, 170, 096,232, 075 
50664 : 224, 00 5, 208, 21 9, 173, 083, 120 
50670 : 202, 208, 050, 104,170,096, 04 4 
5067 6 : 169, 057, 157, 162, 006, 202, 22 9 
50682 : 189, 162, 006, 201, 04 8,24 0, 072 
50688 : 184,222, 162, 006, 076, 185, 067 
50694 : 197, 202, 189, 162, 006, 201, 195 
50700 : 04 8, 24 0, 012,07 6, 185,197,002 
50706 : 169, 048,157,017,005,202, 104 
50712 : 07 6, 187, 197, 169,001, 141, 027 
50718 : 083, 202, 07 6, 185, 197,169, 17 4 
50724 : 000, 141, 083, 202, 024, 173, 147 
50730 : 096, 202, 105, 005, 141, 096, 175 
50736 : 202, 201, 058, 240, 003, 07 6, 060 
50742 : 064, 198, 169, 048, 141, 096, 002 
5074 8 : 202, 238, 095, 202,02 4,160, 213 
50754 : 004,162,011,032,240,255, 002 
507 60 : 160, 000, 185, 195,202,240,030 
50766 : 007,032,210, 255,200,076, 090 
50772 : 074, 198, 169,224, 141,011, 133 
50778 : 208, 141, 010, 208, 169, 134, 192 
507 84 : 141, 253, 007, 206, 010, 208, 153 
507 90 : 032, 14 5, 193,032,14 5, 193, 074 

507 96 : 169, 135, 141, 253,007, 206, 251 
50802 :0 10, 208, 169, 000, 141, 004, 134 
50808 :212, 141,018, 212,032,173, 140 
50814 : 194, 032, 14 5, 193, 032, 14 5, 099 
50820 : 193, 17 3, 010, 208, 201, 002, 151 
5082 6 : 208, 2 10, 032, 198, 198,024,240 
50832 : 160, 004, 162, Oli, 032,24 0, 241 
50838 : 255, 160,000, 185, 22 0, 202, 148 
50844 : 240, 007, 032, 210,255,200, 076 
50850 : 076, 153, 198, 032, 04 2, 195, 090 
50856 : 160, 02 4, 169, 032, 153, 188, 12 6 

508 62 : 005, 136, 016, 250, 169, 028, 010 
50868 : 141, 192, 005, 141, 199,005, 095 
50874 : 141, 206, 005, 032,222,198, 222 
50880 : 104, 104, 104, 07 6, 090, 193,095 
50886 : 160, 000, 185, 2 17, 005, 201, 198 
50892 : 032, 2 40, 006, 200, 192,005, 111 
508 98 : 208, 24 4, 096, 169, 030, 153, 086 
50904 -.217,005,238, 081,202, 096, 031 
50910 : 169, 000,133,251, 169,216, 136 
50916 : 133,252,138, 072,162,025,242 
50922 : 160, 000, 169, 002, 14 5, 251, 193 
50928 : 200, 192, 031, 208,249, 169, 009 
50934 -.010, 145,251, 200, 192, 039, 059 
50 940 : 208, 249, 024, 165,251, 105, 230 
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1 594 6 s 04ó r 133,251, 165,252,105, 18U 
0952 ì 000,133,252, 202, 208, 220, 255 
§§58 5 Ì04, 170, 096, 173, 019,007, 071 
0964 ì 2Ói, 027, 240, 006, 169, 027, 178 
§970 S 141^219, 007,096, 169, 027,173 
0976 S14Ì, 195, 007, 096, 160, 005, 124 
§982 8 185, 177,201, 205, 012, 208, 002 
§0988 1240, 007, 136, 016,245, 173, 093 
§0994 {031,208,096, 173, 191,201, 182 
liOOÓ S258, 056, 173, 013,208,201,347 
5Ì0Ó6 {224,240,082, 173,235,201, 193 
11012 {2(58,020, 160, 003, 17 3,031, 151 
§Ì0l8 {2(58,217, 183, 201,240,004, 103 
§1024 { 136,016,248, 096, 169,001, 234 
§1030 ! 141,235,201, 096,238,013, 242 
Ì|Ò36 8268,032, 156, 199,096, 169, 184 
IÌ042 8ÓÓÒ, 141,235, 201, 173, 031, 111 
fiÒ46 J2Ó8, 173, 159,201,073,001, 151 
§1054 { Ì4Ì, 159,201, 096, 173,013, 125 
§1060 {208,201,064,240,026, 173,004 
o 1 Ò 66 {235,201,208, 014, 160,003, 175 
61072 I 113,031,208, 217, 187,201, 121 
IÌ078 {240,204, 136, 016, 248, 096, 050 
§1084 1266,013,208, 032,156, 199, 186 
|Ì090 {096, 173, 191, 201,073, 001, 113 
116 9 6 {141,191,201, 096,238,235,230 
Sì 102 { 201, 173,235,201,201,041, 186 
I1Ì08 {240,187,096, 160,004, 185, 012 
|j|l4 fili/ 202, 153, 193,004,185, 250 
§ f 120 1 116,202, 153, 137,005, 185, 206 
il 12 6 { 12 1,202, 153, 081, 006, 185, 162 
SÌ 132 8 126,202, 153, 025,007,185, 118 
§1138 8 131,202, 153, 065,007,169, 153 
fi 144 ( 030, 153,217, 005, 169, 048,054 
«1150 8153,017,005, 136,016,213,234 
1 1 ì 5 6 s 696, 173, 100,202,208, 021, 244 
!| 1 62 {113,015,208,205,011,208,014 
ili 68 8 Ì 7 6 , 055, 173, 098,202,208, 112 
IJÌ14 S 614,032, 154, 200, 201, 191, 254 
I |18Ó {246, 007,096, 169, 141, 141, 006 
S1Ì86 {255,007,096, 169, 001, 141, 143 
§ fi 92 8 096,202, 173,015,208,205, 125 
Ìli 98 (Oli, 208, 240, 027,238,015, 225 
f’f 2 0 4 {268, 17 3,014, 208,205, 010, 054 
31210 {208,240,016, 176,006,238, 126 
||2l6 {014,208,238, 014, 208, 206, 136 
§1222 : ÓÌ4 ; 208, 096, 201, 24 0,240, 253 
§1228 {001,206, 014,208,238,015,204 
li 2 34 S 208, 096, 169,000,141,098,234 
§1240 {262, 169,032, 141,015,208, 039 
|1È4 6 s 096, 17 3, 100, 202,208,053, 110 
§1^52 j 113,015,208,205,011,208, 104 
« I 258 {116,027, 173,010,208,205,089 
31264 <014,208,144,027,056,237,238 

11270 <614 , 208, 201, 008, 176, Oli, 176 

tf 276 <056, 173, 011,208,237, 015, 008 
|1282 I 208) 201, 007, 144,077,173, 124 
Il 288 < 0ÌÒ, 208,201, 192,24 0,011, 202 
IÌ294 1096,056, 173,014,208,237, 110 
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51300 : 010, 208, 07 6, 072,200, 169, 067 
51306 : 001, 141, 100, 202, 238, 015, 035 
51312 : 208,032,154,200, 141, 015, 094 
51318 :212, 169,021, 141,018,212, 123 
51324 : 173, 030, 208, 201, 160, 240, 112 
51330 : 020, 173,015, 208,201,245,224 
51336 : 24 0, 001, 096, 169, 000, 141, 015 
51342 : 015, 208, 141, 100, 202, 173, 213 
51348 : 030,208,096, 076, 066, 195, 051 
51354 : 138,072,032, 158, 224, 104 , 114 
51360 : 170, 165,098, 096, 169,016, 106 
51366 : 141, 004, 212, 169, 138, 141,203 
51372 : 255, 007,169, 136, 141, 253, 109 
51378 : 007, 032, 145, 193, 173,015, 231 
51384 : 208, 141,011,208, 17 3, 014, 171 
51390 : 208, 141, 010, 208, 20 6, 015, 210 
51396 : 208, 169, 139, 141, 255, 007, 091 
51402 : 032, 14 5, 193, 032, 154,200, 190 
51408 : 141, 015, 212, 169, 017, 141, 135 
51414 : 018,212,173, 015, 208, 201, 017 
51420 : 025, 208, 197, 169, 016, 141,208 
5142 6 : 018, 212, 07 6, 092, 195, 120, 171 
51432 : 169, 051, 133, 001, 16 9, 000, 243 
51438 : 133,251,133,253, 169,208, 105 
51444 : 133,252,169, 04 8, 133,254,209 
51450 :162,002,160, 000, 177,251,234 
51456 : 145, 2 53, 136, 208, 249, 230, 197 
51462 :252,230,254,202,208,240, 112 
51468 { 169,055, 133, 001, 088, 169, 115 
51474 : 028, 141,024,208, 160,031,098 
51480 { 185, 202, 201, 153,216, 048, 005 
51486 {13 6, 016, 247, 096, 172, 110, 03 9 
51492 {202,140, 001,212, 169,017, 009 
51498 { 141,004,212, 136, 140, 110, 017 
51504 {202, 169,000, 141,011,212,015 
51510 : 141,018,212, 096, 169,004, 182 
51516 {133,252,169, 000, 133,251, 230 
51522 { 162,030,024, 165, 251, 105, 035 
51528 {040, 133,253, 165,252, 105,252 
51534 { 000, 133,254,160, 000, 177, 034 
51540 {253, 145,251,230,251, 165, 099 
51546 :251,208,002,230,252,202,211 
51552 {016, 22 6, 024, 165, 251, 105, 115 
51558 {009, 133,251,165, 252, 105, 249 
51564 :000,133,252, 165,251,201,086 
51570 {192,208,205, 165, 252, 201, 057 
51576 {007,208,199, 169,032,160, 127 
51582 {030, 153,192,007, 136,016, 148 
51588 {250,096,064,024,000,000,054 
51594 :000,000,000,000,000,000, 138 
51600 { 000,000, 064, 104,144,184,128 
51606 {224,001,000,033,034,036,222 
51612 {040,048,000,000,004,097,089 
51618 { 098, 100, 104, 112,027, 004,095 
51624 {203, 004, 171, 005, 091,006, 136 
51630 {059, 007,000, 039, 040, 041, 104 
51636 {231,232,233,191, 159,063,009 
51642 {031,255,223, 127,095,000, 149 
51648 {004,004,004,004,004,004,216 


51654 

51660 

51666 

51672 

51678 

51684 

51690 

51696 

51702 

51708 

51714 

51720 

51726 

51732 

51738 

51744 

51750 

51756 

51762 

51768 

51774 

51780 

51786 

51792 

51798 

51804 

51810 

51816 

51822 

51828 

51834 

51840 

51846 

51852 

51858 

51864 

51870 

51876 

51882 

51888 

51894 

51900 

51906 

51912 

51918 

51924 

51930 

51936 

51942 

51948 

51954 

51960 

51966 

51972 

51978 

51984 

51990 

51996 

52002 


: 004 , 004 , 004 , 004 , 130 , 084, 172 
: 130 , 084 , 130 , 084 , 130 , 084,078 
: 032 , 01 6 , 032 , 01 6 , 032 , 01 6, 098 
: 032 , 016 , 000 , 000 , 000 , 000,008 
: 255 , 195 , 195 , 255 , 008 , 028 , 134 
: 008 , 02 8 , 042, 0 93 , 02 0 , 020 , 183 
: 021 , 000 , 000 , 020 , 000 , 000 , 019 
: 000 , 000 , 000 , 069 , 240 , 000 , 037 
: 000 , 000 , 000 , 000 , 069,24 0 , 043 
: 000 , 000 , 000 , 000 , 017 , 088 , 101 
: 088 , 000 , 000 , 002 , 127 , 030 , 24 9 
: 025 , 031 , 021 , 07 1 , 005 , 07 1,232 
: 005 , 237 , 005 , 071 , 005 , 071 , 152 
: 00 6 , 07 1 , 005 , 012 , 007 , 071 , 192 
: 006 , 071 , 005 , 071 , 005 , 237 , 165 
: 005 , 071 , 005 , 071,00 6 , 071 , 005 
: 005 , 012 , 007 , 071,00 6 , 031 , 17 0 
: 021 , 031 , 021 , 031 , 021 , 031, 200 
: 021 , 181 , 023 , 181 , 023 , 181 , 14 8 
: 023 , 181 , 023 , 030,02 5 , 030 , 112 
: 025 , 030 , 025 , 030, 02 5 , 181 , 122 
: 023 , 181 , 023 , 181 , 023 , 181 , 168 
: 023 , 04 9 , 223 , 135 , 162 , 000 , 154 
: 000 , 005 , 000 , 000 , 025 , 000 , 110 
: 24 7 , 22 0 , 192 , 164, 13 6 , 108 , 12 9 
: 080 , 052 , 024,04 9 , 04 8 , 000 , 089 
: 000 , 000 , 000 , 000 , 013 , 007 , 118 
: 00 6 , 005 , 014 , Oli , 010 , 00 9 , 15 9 
: 161 , 019 , 003 , 015 , 018 , 005 , 075 
: 013 , 005 , 014 , 032 , 032 , 006, 218 
: 0 12 , 015 , 015 , 018 , 00 8 , 00 9, 199 
: 007 , 008 , 032 , 019 , 003 , 015,212 
: 018 , 005 , 04 8 , 048 , 048 , 04 8, 093 
: 048 , 030 , 089 , 07 9 , 085 , 03 9 , 254 
: 086 , 069 , 032 , 082 , 085 , 078 , 066 
: 032,07 9 , 085 , 084 , 032,07 9 , 031 
: 070 , 032 , 07 7 , 0 69 , 07 8 , 013, 241 
: 013 , 02 9 , 02 9 , 02 9 , 02 9 , 02 9 , 06 6 
: 080 , 082 , 069 , 083 , 083 , 032,087 
: 070 , 07 3 , 082 , 069 , 032 , 084,07 4 
: 07 9 , 032 , 080 , 07 6 , 065 , 089 , 091 
: 032 , 065 , 071 , 065 , 073, 07 8 , 060 
: 000 , 07 1 , 082 , 07 9 , 085 , 078 , 077 
: 068 , 032 , 070 , 07 6 , 07 9 , 07 9 , 092 
: 082, 04 4 , 08 9 , 07 9 , 085, 03 9 , 112 
: 082 , 069 , 032 , 083 , 065 , 070 , 101 
: 069 , 000 , 078 , 07 9 , 087 , 032,051 
: 087 , 0 69 , 032 , 071, 07 9 , 032,082 
: 065 , 032 , 07 6 , 073 , 084 , 084 , 132 
••07 6 , 06 9 , 032 , 072,07 3 , 071 , 117 
: 072 , 069 , 082 , 000 , 254 , 000 , 207 
: 236 , 000 , 238 , 000 , 110 , 098 , 162 
: 002 , 098 , 000 , 000 , 000 , 000,098 
: 000 , 000 , 000 , 000 , 000 , 000,004 
: 000 , 000 , 010 , 170 , 128 , 008 , 070 
: 000 , 128 , 008 , 000 , 128 , 008,032 
: 000 , 128 , 008 , 000 , 128 , 008,038 
: 000 , 12 8 , 008 , 000 , 128 , 008, 04 4 
: 000 , 12 8 , 008 , 000 , 128 , 008 , 050 


52008 : 000 , 128 , 008 , 0 . 00 , 128 , 008 , 056 
52014 : 000, 12 8 , 008 , 000 , 128 , 008,062 
52020 : 000 , 128 , 008 , 000 , 128 , 008,068 
5202 6 : 000 , 128 , 010 , 17 0 , 12 8 , 131 , 113 
52032 : 064 , 016 , 000 , 068 , 001 , 001, 214 
52038 : 016 , 004 , 004 , 004 , 001 , 004 , 103 
5204 4 : 010 , 17 0 , 14 4 , 008 , 000 , 128,024 
52050 : 072 , 000 , 132 , 024 , 000 , 128 , 182 
52056 : 072 , 000, 12 9 , 024 , 000 , 132 , 189 
520 62 : 072 , 000, 14 4 , 072 , 000 , 132,002 
520 68 : 008 , 000 , 128 , 008 , 000, 12 9 , 117 
52074 : 024 , 000 , 132 , 072 , 000 , 129 , 207 
52080 : 024 , 000 , 132 , 072 , 000,14 4,228 
52086 : 072 , 000 , 132 , 008 , 000, 12 9, 203 
52092 : 010, 17 0 , 132 , 131 , 064 , 000 , 119 
52098 : 016 , 016 , 068, 0 64 , 004 , 016 , 058 
52104 : 017 , 016 , 000 , 004 , 010 , 170 , 097 
52110 : 14 4 , 072 , 000 , 132,02 4 , 000 , 002 
52116 : 12 9 , 07 2 , 000 , 132,02 4 , 000 , 24 9 
52122 : 14 4 , 008 , 000 , 132 , 008 , 000 , 190 
52128 : 128 , 02 4 , 000 , 128 , 07 2 , 000 , 000 
52134 : 14 4, 02 4 , 000 , 132 , 008 , 000 , 218 
52140 : 12 9 , 02 4 , 000 , 132 , 072 , 000 , 017 
5214 6 : 132, 07 2 , 000 , 12 9 , 008 , 000,007 
52152 : 132 , 072 , 000 , 14 4 , 074 , 170,008 
52158 : 128 , 131 , 000 , 000 , 000 , 000 , 193 
52164 : 000 , 000 , 000 , 000 , 000 , 000 , 196 
52170 : 000 , 000 , 000 , 000 , 000 , 017, 219 
5217 6 : 017 , 016 , 000 , 000 , 000 , 017,002 
52182 : 017 , 016 , 000 , 168 , 000 , 000 , 159 
52188 : 13 6 , 000 , 000 , 016 , 000 , 000 , 116 
52194 : 016 , 000 , 051 , 051, 04 8 , 000 , 136 
52200 : 032 , 000 , 051 , 051, 04 8 , 000 , 158 
52206 : 032 , 000 , 000 , 032 , 000 , 000, 046 
52212 : 168 , 000 , 000 , 13 6 , 000 , 002,038 
52218 : 138 , 000 , 002 , 170 , 000 , 255 , 047 
52224 : 000 , 000 , 000 , 000 , 000 , 000 , 000 
52230 : 000 , 000 , 000 , 000 , 000 , 000,006 
5223 6 : 000 , 000 , 000 , 004 , 068 , 064 , 148 
52242 : 016 , 000 , 016 , 004 , 068 , 064,18 6 
52248 : 000 , 168 , 000 , 000 , 136 , 000 , 072 
52254 : 000 , 016 , 000 , 000 , 016 , 000 , 062 
522 60 : 012 , 204 , 192, 04 8 , 032, 04 8 , 060 
522 66 : 012 , 204 , 192 , 000 , 032 , 000,226 
52272 : 000 , 032 , 000 , 000 , 168 , 000, 248 
52278 : 000, 13 6 , 000 , 002 , 138 , 000,074 
52284 : 002, 17 0 , 000 , 255 , 000 , 000,231 
52290 : 000 , 000 , 000 , 000 , 000 , 000,066 
52296 : 000 , 000 , 000 , 000 , 000 , 000,072 
52302 : 000 , 000 , 012 , 000 , 000 , 051 , 141 
52308 : 000 , 000 , 004 , 000 , 000 , 004,092 
52314 : 000 , 000 , 042 , 000 , 000 , 162,038 
52320 : 128 , 000 , 170 , 128 , 002 , 034,046 
5232 6 : 032 , 002 , 042 , 032 , 003 , 034, 247 
52332 : 048 , 000 , 021 , 000 , 000 , 017, 194 
52338 : 000 , 000 , 017 , 000 , 000 , 017 , 148 
5234 4 : 000 , 000 , 017 , 000 , 000 , 255 , 136 
52350 : 192 , 255 , 000 , 000 , 000 , 000 , 061 
52356 : 000 , 000 , 000 , 000 , 000 , 000 , 132 
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52362 -. 000 , 000 , 000 , 000 , 000 , 000 , 138 
52368 : 012 , 000 , 000 , 051 , 000 , 000, 207 
52374 : 004 , 000 , 000 , 004 , 000 , 000 , 158 
52380 : 010 , 000 , 003 , 010 , 128 , 000 , 051 
5238 6 : 138 , 032 , 000 , 043 , 128 , 000 , 24 7 
52392 : 005 , 000 , 000 , 021 , 000 , 000 , 194 
52398 : 0 68 , 000 , 000 , 068 , 000 , 000 , 054 
52404 : 0 65 , 000 , 000 , 064 , 064 , 000 , 117 
52410 : 192,04 8 , 003 , 000 , 192 , 000 , 109 
52416 : 000 , 000 , 000 , 000 , 000 , 000 , 192 
52422 : 000 , 000 , 000 , 000 , 000 , 000 , 198 
52428 : 000 , 000 , 000 , 000 , 012 , 000 , 216 
52434 : 000 , 051 , 000 , 000 , 004 , 000 , 009 
5244 0 : 000 , 004 , 000 , 000 , 01 0 , 000, 230 
5244 6 : 000 , 010 , 000 , 000 , 010 , 128 , 114 
52452 : 000 , 058 , 128 , 000 , 005 , 000 , 163 
52458 : 000 , 04 9 , 000 , 000 , 001 , 000 , 028 
524 64 : 000 , 005 , 000 , 000 , 020 , 000 , 009 
52470 : 000 , 021 , 000 , 000 , 004 , 128 , 143 
5247 6 : 000 , 055 , 000 , 255 , 000 , 000 , 050 
524 82 : 000 , 000 , 000 , 000 , 000 , 000 , 002 
52488 : 000 , 000 , 000 , 000 , 000 , 000, 008 
524 94 .- 000 , 000 , 048 , 000 , 000 , 204,010 
52500 : 000 , 000 , 016 , 000 , 000 , 016 , 052 
52506 : 000 , 000 , 160 , 000 , 002 , 160, 092 
52512 : 192 , 008 , 162 , 000 , 002 , 232 , 116 
52518 : 000 , 000 , 080 , 000 , 000 , 084,202 
52524 : 000 , 000 , 017 , 000 , 000 , 017, 078 
52530 : 000 , 000 , 065 , 000 , 001 , 001 , 117 

5253 6 : 000 , 012 , 003 , 000 , 003 , 000 , 07 4 
52542 : 192 , 000 , 000 , 000 , 000 , 000, 254 

5254 8 : 000 , 000 , 000 , 000 , 000 , 000, 068 
52554 : 000 , 000 , 000 , 000 , 000 , 000, 074 
52560 : 04 8 , 000 , 000 , 204 , 000 , 000 , 07 6 
52 566 : 016 , 000 , 000 , 016 , 000 , 000 , 118 
52572 : 160 , 000 , 000 , 160 , 000 , 002 , 158 
52578 : 160 , 000 , 002 , 172 , 000 , 000 , 17 6 
52584 : 080 , 000 , 000 , 07 6 , 000 , 000 , 004 
52590 : 0 64 , 000 , 000 , 080 , 000 , 000 , 254 
52596 : 020 , 000 , 001 , 080 , 000 , 003 , 220 
52 602 : 016 , 000 , 000 , 220 , 000 , 255 , 101 
52 608 : 000 , 000 , 000 , 128 , 000 , 002,002 


52 614 : 160 , 000 , 010 , 192 , 000 , 003 , 243 
52 620 : 04 8 , 000 , 012 , 252 , 000 , 063,003 
52 62 6 : 240 , 130 , 015 , 063 , 04 0 , 252, 118 
52 632 : 015 , 020, 24 0 , 000 , 130 , 000, 045 
52 638 : 000 , 020 , 000 , 000 , 130 , 000 , 052 
52 64 4 : 002 , 000 , 128 , 002 , 000 , 128 , 168 
52 650 : 008 , 130 , 032 , 000 , 000 , 000 , 084 
52 656 : 000 , 000 , 000 , 000 , 000 , 000 , 17 6 
52 662 : 000 , 000 , 000 , 000 , 000 , 000 , 182 
52 668 : 000 , 000 , 000 , 000 , 000 , 000 , 188 
52 674 : 000 , 000 , 000 , 000 , 000 , 000 , 194 
52 680 : 000 , 000 , 000 , 000 , 000 , 000 , 200 
52 68 6 : 000 , 000 , 000 , 000 , 050 , 000,000 
52 692 : 140 , 060 , 130 , 0 60 , 207 , 020 , 061 
52 698 : 243 , 048 , 130 , 012 , 240 , 020, 143 
527 04 : 015 , 12 8 , 130 , 002 , 130 , 000 , 117 
52710 : 130 , 002 , 000 , 128 , 002 , 000, 236 
52716 : 128 , 008 , 130 , 032 , 000 , 000 , 022 
52722 : 000 , 000 , 000 , 000 , 000 , 000 , 242 
52728 : 000 , 000 , 000 , 000 , 000 , 000 , 248 
52734 : 000 , 000 , 012 , 000 , 128 , 128 , 010 
527 40 : 000 , 002 , 160 , 000 , 002 , 000 , 168 
5274 6 : 195 , 003 , 000 , 000 , 012 , 000 , 220 
52752 : 000 , 015, 24 0 , 130 , 015 , 015 , 175 
52758 : 04 0,24 0 , 195 , 020,24 0 , 000 , 245 
527 64 : 130 , 003 , 04 8 , 020 , 000 , 000 , 229 
52770 : 130 , 012 , 194 , 000, 12 8 , 002, 244 
5277 6 : 04 8 , 128 , 008 , 128 , 032 , 000 , 128 
52782 : 000 , 008 , 000 , 000 , 000 , 000 , 054 
52788 : 000 , 000 , 000 , 000 , 000 , 000 , 052 
527 94 : 000 , 000 , 000 , 000 , 000 , 000 , 058 
52800 : 000 , 000 , 000 , 000 , 000 , 000 , 064 
5280 6 : 000 , 000 , 000 , 000 , 000 , 000 , 070 
52812 : 192 , 000 , 192 , 000 , 04 8 , 003,255 
52818 : 002 , 000 , 128 , 060 , 130 , 048 , 194 
52824 : 192, 02 0 , 243 , 04 8 , 002 , 012,093 
52830 : 195 , 020 , 000 , 128 , 130 , 002, 057 
52836 : 142 , 000 , 142 , 002 , 032 , 000 , 162 
52842 : 002 , 000 , 128 , 008 , 002 , 035 , 025 
5284 8 : 000 , 000 , 000 , 000 , 032 , 000 , 144 
52854 : 000 , 000 , 000 , 000 , 000 , 000 , 118 
52860 : 000 , 000 , 000 , 000 , 189 , 2 55, 05 6 
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Per collaborare a SUPERCOMMODORE 


Se desiderate inviare alla rivista i vostri programmi o articoli, vi proponiamo una piccola 'gui- 
da', con lo scopo particolare di rendere più accurata la stesura dei manoscritti: seguendo 
questi consigli si accresceranno le probabilità che i vostri lavori vengano pubblicati. 


l’angolo superiore sinistro della prima 
pagina dovrà contenere: nome, cogno- 
me, indirizzo, numero telefonico, codice fisca- 
le, luogo e data di nascita. 

l'angolo superiore destro della prima 
pagina dovrà contenere il tipo di com- 
puter al quale il lavoro si riferisce (C64 o 
CI 28), unitamente alle eventuali periferiche 
richieste. 

3 il titolo delParticolo, sottolineato, dovrà 
iniziare a circa due terzi in altezza della 
prima pagina. 

l'articolo dovrà pervenire in Redazione 
sia registrato su supporto magnetico 
(formato SpeedScript o Easy Script per C64, 
oppure in formato ASCII MS-DOS o Macin- 
tosh) che stampato su carta. 

|- analogamente i programmi, che accom- 
O pagnano gli articoli dovranno essere in- 
viati su supporto magnetico (floppy disk o 
cassetta): non ha importanza che venga forni- 
to un listato su carta degli stessi. 

nel caso i programmi siano in linguag- 
gio macchina, dovranno essere specifi- 
cati gli indirizzi iniziale e finale, e la procedu- 
ra da seguire per il loro caricamento ed attiva- 
zione. 

7 programmi in BASIC spezzati in più 
parti dovranno prevedere il carica- 
mento in overlay da cassetta e (opzionalmen- 
te) da disco. 


si tenga presente, che non potranno es- 
sere pubblicati listati troppo lunghi o ri- 
guardanti argomenti appena trattati sulla ri- 
vista. 

A non verranno presi in considerazione 
articoli o programmi non originali e già 
sottoposti ad altre case editrici. 

il materiale pervenuto non sarà restitui- 
to, mentre verrà data comunicazione 
scritta o telefonica all'Autore soltanto nel ca- 
so in cui il lavoro sia stato ritenuto meritevole 
di pubblicazione. 

il compenso spettante per la collabora- 
zione prestata sarà commisurato alla 
complessità e all'interesse del lavoro (da un 
minimo di L. 50.000 a un massimo di L. 
300.000) e verrà corrisposto un mese dopo 
l'avvenuta pubblicazione sulla rivista. 


Inviate articoli e programmi a: 

SUPERCOMMODORE 

Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i con- 
tributi migliori. 

La Redazione 
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di S. Edgeworth 

trad. e adatt. di S. Colombo 



Questa volta un programma ve- 
ramente insolito: una simulazio- 
ne astronomica del sistema sola- 
re, con tutti i Pianeti in moto, 
che permette anche di tracciare 
le orbite della Cometa di Halley 
e di altre, e soprattutto offre 
una visione affascinante del si- 
stema di Pianeti in cui viviamo. 

Il programma è diviso in quattro parti: 
Sole e Pianeti, in cui è simulato il movi- 
mento dei Pianeti attorno al Sole; Sole, 
Terra e Luna, che mostra come le fasi 
Lunari siano generate dall’orbita; Come- 
te, in cui è simulata l'orbita della Cometa 
di Halley e di altre Comete; Altro, che 
mostra le principali caratteristiche di cia- 
scun Pianeta. 

Nella prima parte potete osservare le di- 
verse orbite di cinque Pianeti alla volta: 
il Sole è fermo e si trova al centro dello 
schermo. Scegliete il nome del Pianeta 
più interno e il nome del Pianeta più 
esterno che desiderate osservare, e un 
anno da 1 a 2000. Premete G per porre i 
Pianeti in movimento, + per aumentarne 
la velocità, - per diminuirla, S per fermar- 
ne il movimento. 

Il tempo trascorso viene visualizzato in 
anni nella parte destra dello schermo. 

La Luna 

La seconda opzione del menu mostra in- 
vece come l'orbita della Luna attorno al- 
la Terra provochi le diverse fasi Lunari. 
La Terra è mostrata in orbita attorno al 


Sole, mentre la Luna orbita attorno alla 
Terra: la distanza tra la Terra e la Luna è 
stata artificialmente aumentata di 30 vol- 
te per rendere tra loro distinguibili i due 
Pianeti. 

Nell'angolo superiore destro dello scher- 
mo viene mostrata la fase Lunare cor- 
rente relativa alla posizione dei Pianeti, 
mentre il tempo trascorso viene visualiz- 
zato in giorni. 

I controlli di cui disponete sono i tasti G, 
S, + e -, esattamente come nella descri- 
zione precedente. 


La Luna impiega 27.3 giorni per orbitare 
intorno alla Terra, mentre passano 29.6 
giorni tra una Luna piena. e la successi- 
va. Se osservate attentamente lo scher- 
mo, potete comprendere il perchè di que- 
sta differenza: per raggiungere la stes- 
sa posizione relativa ai Sole la Luna de- 
ve completare qualcosa di più di una sin- 
gola orbita attorno alla Terra. 

Dal momento che l'orbita della Luna at- 
torno alla Terra non è perfettamente cir- 
colare, normalmente non si verifica mai 
un perfetto allineamento tra Sole, Terra 
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e Luna. Nelle rare occasioni in cui que- delle orbite delle principali Comete: 


sto allineamento si verifica, si ha il feno- 
meno' delPeclissi: se avviene quando la Cometa Eccentricità 

Luna è piena, sarà una eclissi di Luna, 

mentre se avviene a Luna nuova sarà Faye , 0.56 

una eclissi di Sole. Finlay 0.70 

Enke 0.85 

Le Comete Halley 0.96 


La terza opzione del menu mostra co- 
me appaiono le orbite delle Comete. I 
Pianeti e le Comete si muovono su orbi- 
te ellittiche, che appaiono come cerchi 
"schiacciati" su un diametro. Il parame- 
tro che misura di quanto il cerchio è 
"schiacciato” si chiama eccentricità, e 
oscilla tra zero (cerchio perfetto) e uno 
(cerchio completamente schiacciato, 
che si confonde con un segmento). Le 
eccentricità delle orbite dei maggiori Pia- 
neti passano dal valore prossimo a zero 
di Venere a quello di 0.25 relativo all'orbi- 
ta di Plutone. 

Una Cometa la cui eccentricità orbitale 
fosse prossima a zero lascerebbe ineso- 
rabilmente il Sistema Solare per perder- 
si nello spazio, in quanto la forza dì at- 
trazione esercitata dal Sole non equili- 
brerebbe la forza centrifuga dovuta alla 
rotazione orbitale. 

Inserite un valore tra 0 e 0.96 e premete 
RETURN. Ecco i nomi e le eccentricità 


Per osservare l'orbita della Cometa di 
Halley digitate 0.96R, dove la R indica 
che il moto della Cometa ha verso oppo- 
sto a quello di rotazione dei Pianeti. 

Si noti che la velocità di un Pianeta o di 
una Cometa varia in funzione della sua 
posizione lungo l'orbita: maggiore è la vi- 
cinanza con il Sole, maggiore è anche la 
velocità lungo l'orbita. 

I dati relativi ai Pianeti 

L'ultima parte del programma vi offre al- 
cune nozioni interessanti circa il Siste- 
ma Solare. Dal menu potete scegliere 
un Pianeta, il Sole o la Luna e ottenerne 
tutti i dati principali; oppure potete sce- 
gliere una caratteristica - ad esempio la 
temperatura - e compararne i valori con 
quelli relativi a tutti e nove i Pianeti più il 
Sole e la Luna. 

Dal momento che le distanze effettive 
tra i Pianeti e il Sole sono estremamente 
difficili da visualizzare, abbiamo aggiun- 


to un valore veramente poco scientifi- 
co, ma di grande effetto: il "tempo gui- 
da" mostra infatti il tempo che si impie- 
gherebbe a guidare da un dato Pianeta 
fino al Sole, tenendo una media costan- 
te di circa 95 Km/h. Per la Luna il "tem- 
po guida" è relativo alla distanza Terra- 
Luna. Le masse dei Pianeti sono 
espresse in unità multiple della massa 
della Terra, dal momento che valori 
espressi in tonnellate sarebbero trop- 
po ardui da comprendere ( si pensi 
che la Terra pesa qualcosa come 
6.588.000.000.000.000.000.000 tonnel- 
late!). Le densità sono confrontate con 
quella dell'acqua (si noti che Saturno è 
meno denso dell'acqua), e le temperatu- 
re sono le temperature medie della su- 
perficie dei Pianeti. Le varie lune sono 
elencate in ordine di distanza dai Piane- 
ti attorno ai quali orbitano, iniziando dal- 
le più vicine. Le lune contrassegnate da 
X non sono state ancora "battezzate" 
con un nome particolare. 

Per i tecnici di astronomia ecco alcuni 
dettagli relativi a Solarpix: le orbite sono 
assunte come appartenenti tutte allo 
stesso piano. Per Plutone, invece, vie- 
ne simulato il reale movimento ellittico. 
Lo schermo dei Pianeti è orientato con 
l'afelio di Plutone sulla destra, e le posi- 
zioni dei Pianeti sono calcolate dalla lo- 
ro posizione reale del 27 Ottobre 1 984. 


Solarpix 

10 POKE56, 132 :CLR : rem 216 

20 POKE7 92 , 1 93 : POKE648 ,132 : rem 201 

30 POKE5657 6, (PEEK (5657 6 ) AND252 ) ORI 

:rem 221 

40 POKE53280, 3 :POKE53281, 3 :DIMS (255) ,C(25 
5),M$(9,17) : rem 42 

50 BP=34808 :V=53248 :LC=4 9152 :EY=1 984 . 82 

:rem 156 

60 PP=2 *& : P$ (0)="AC" :P$ ( 1 ) = n DE" : SA=1 . 1 

: rem 167 

70 PRINT" (CLR) { 8 GIU* } {BLU} "SPC (14) "ATTE 
NDERE . . . " : rem 120 

80 SP$=CHR$ (32) :X$=SP$ + "Z=ESCI ,, : rem 7 

90 RE$=CHR$ (18) :RX$=CHR$ (146) : rem 78 

100 T$ (1) =RE$+"SOLE E{ 2 SPAZI }PIANETI"+R 
X$ : rem 10 9 

110 T$ (2) =RE$+"SOLE, TERRA E LUNA"+RX$ 

: rem 63 

120 T$ (3) =RE $+" COMETE" +RX$ : rem 172 

130 T$ (4) =RE$+"ALTRO"+RX$ : rem 115 

140 FORJ-49152TO49240 : READK : POKEJ, K : NEXT 

:rem 242 

150 FORJ=3481 6T0351 9 9 : READK : POKEJ, K : NEXT 

: rem 252 

160 FORJ-35520TO35775 :POKEJ, 0 : NEXT 

: rem 58 

170 FORL=lTO10 : READJ, K : POKE3558 4+J, K : NEXT 

: rem 43 


180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 


FORJ=0TO7 : READK : POKEBP+J, K : NEXT 



: rem 

18 

FORJ=0TO7 :READH (J) : NEXT 

: rem 

196 

FORJ=0TO10 :READF$ (J) ,U$ (J) 

: rem 

207 

L=0 : H=10 : IF J>4THENL=1 : H=9 

: rem 

210 

FORK=LTOH:READZ (K, J) : NEXT: NEXT 



: rem 

238 

F0RJ=1T09 :D (J) =Z ( J, 5) 

: rem 

188 

P ( J) =Z (J, 6) :NEXT 

: rem 

142 

FORJ=0TO10 :READN$ ( J) 

: rem 

156 

IFJ<4ORJ=10THEN2 8 0 

: rem 

51 

FORK=lTOZ (J, 10) : READM$ ( J, K) 

: NEXT 



: rem 

176 


NEXT : F0RJ=1T09 : READR: R ( J) -R/360 : NEXT 



: rem 

45 

FORN=0TO255:M=N*2*&/256 

: rem 

223 

S (N) =SIN (M) : C (N) =COS (M) : NEXT 

: rem 

159 

F0RJ=32T036 : K=74-J 

: rem 

23 

POKE251, J : POKE252 , 2 : POKE253, 

K 



: rem 

172 

POKE2 54,2 : SYS 4 9175 : NEXT 

: rem 

122 

FORJ=0TO7 : POKEV+3 9+ J, H ( J) :NEXT 



: rem 

98 

POKEV+2 3,0: POKEV+2 9,0: POKEV+ 1 6 , 128 

* 

: rem 

210 

GOSUB550 : POKEV+3 9,7: POKEV+40 

,3 



: rem 

25 

POKEV+32 , 3 : POKEV+33 , 3 : POKE64 6 , 6 



: rem 

40 
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380 

PRINT" {CLR}" :SYSLC, 4,14 

: rem 

184 

870 , 

A=INT ( (A-INT (A) ) *256) : IFJ=9THEN890 


390 

P RINT " SOLARP IX " : PRINT : PRINT 

: rem 

109 



: rem 

181 

400 

F0RJ=1T04 tPRINTTAB (8) J;T$ ( J) 

: PRINT 


880 : 

X ( J) =C (A) : Y ( J) =-S (A) :GOTO910 

: rem 

47 



: rem 

144 

890 

Z=1+E*C (A) : X ( J) =E+ (E+C (A) ) /Z 

: rem 

209 

410 

NEXT : PRINTTAB ( 9 ) "Q ESCI” 

: rem 

181 

900 

Y ( J) = (E*E-1 ) *S (A) / Z 

: rem 

197 

420 

GOSUB470 :ONKGOTO630, 1010, 1280, 1460 


910 : 

X(J) =INT ( 131+X ( J) *E (J) ) 

: rem 

195 


¥ 

: rem 

129 

920 

Y ( J) =INT (149+Y (J) *F(J) ) :NEXT 

: rem 

73 

430 

IFK$<>”Q"THEN420 

: rem 

105 

930 : 

K=1 :FORJ=LTOH:POKEV+2*K,X(J) 

: rem 

228 

440 

POKE56576, PEEK (56576) OR3 

: rem 

87 

940 

POKEV+2*K+l, Y (J) :K=K+1 :NEXT 

: rem 

82 

450 

POKE648 , 4 : POKE7 92 , 7 1 : GOSUB550 


950 

T$=STR$ ( INT ( (T+EY) *10) /IO) 

: rem 

134 



: rem 

189 

960 

SYSLC, 9, 30 :PRINTT$SP$SP$ 

: rem 

238 

460 

PRINT" { CLR } " : POKE56 ,160: CLR : 

END 


970 

GOSUB590 : IFK$="Z"THEN630 

: rem 

153 



: rem 

193 

980 

IFFLTHEN97 0 

: rem 

145 

470 

POKE198, 0 

: rem 

200 

990' IFK$="+"ANDM<MLTHENM=M*2 

: rem 

163 

480 

GETK$ : IFK$=" "THEN480 

: rem 

111 

1000 

T=T+M:GOTO860 

: rem 

47 

490 

K=VAL(K$) : RETURN 

: rem 

226 

1010 

POKEV+32, 14 : POKEV+3 3, 0 :POKE646, 14 

500 

SYSLC, 18, 31 :PRINT"G=VIA" 

: rem 

183 



: rem 

174 

510 

PRINTTAB (31) "S=STOP" 

: rem 

201 

1020 

PRINT" {CLR} "T$ (2) : PRINTTAB (31) "LUNA" 

520 

PRINTTAB (31) "+=VELOCE" 

: rem 

26 



: rem 

233 

530 

PRINTTAB (31)" -=LENTO" 

: rem 

225 

1030 

PRINTTAB (31) "FASE " :GOSUB500 


540 

PRINTTAB ( 3 0 ) X$ : RETURN 

: rem 

71 



: rem 

143 

550 

POKEV+21, 0 :FORJ=0TO15 

: rem 

234 

1040 

SYSLC, 2 4,1: PRINT" (DIST . TERRA- LUNA MO 

560 

POKE V+ J , 0 : NEXT : RETURN 

: rem 

132 


LTIPLICATA PER 30)"; 

: rem 

227 

570 

SYSLC, 23, 30 :PRINTX$ 

: rem 

141 

1050 

SYSLC, 7 , 3 1 : PRINT"TERRA" 

: rem 

208 

580 

SYSLC, 2,0: RETURN 

: rem 

255 

1060 

PRINTTAB (31) "GIORNI" 

: rem 

236 

590 

GETK$ : IFK$="S"THENFL=1 

: rem 

40 

1070 

E=84 :D=E*SA:F=D*30/390 :G=F/SA 


600 

IFK$=”G"THENFL=0 

: rem 

138 



: rem 

148 

610 

IFK$="-"THENM=M/2 

: rem 

170 

1080 

M=0. 3/365. 25 :T=0:H=13. 3685 

: rem 

104 

620 

RETURN 

: rem 

120 

1090 

POKEV+3 9,14: POKEV+4 0 , 12 

: rem 

84 

630 

POKEV+32, 11 :POKEV+33, 0 :POKE646, 7 


1100 

POKEV+12, 141 :POKEV+13, 147 

: rem 

173 



: rem 

84 

1110 

POKEV+14, 24 :POKEV+15, 80 

: rem 

78 

640 

GOSUB550 : PRINT" (CLR) "T$ ( 1 ) :GOSUB570 

1120 

POKEV+21, 195: FL=1 

: rem 

220 



: rem 

162 

1130 

A=T-INT (T) : B=T*H : B=B-INT (B) 

: rem 

121 

650 

PRINT" [<7>] SELEZIONA I PIANETI 


1140 

C=INT (12* (B-A) +. 5-7) 

: rem 

2 


{ 3 SPAZI} (MAX5) " 

: rem 

111 

1150 

IFC<0THENC=C+12 :GOTO1150 

: rem 

191 

660 

PRINT :FORJ=lT09 :PRINTJ;N$ ( J] 

1 :NEXT 


1160 

A=A*PP : B=B*PP 

: rem 

22 



: rem 

176 

1170 

X=INT ( 142 . 5+COS (A) *D) 

: rem 

164 

670 

PRINT :PRINT"PIU' INTERNO?"; 

: rem 

227 

1180 

Y=INT ( 148 . 5-SIN (A) *E) 

: rem 

180 

680 

GOSUB470 : IFK$="Z"THEN3 60 

: rem 

148 

1190 

W=INT (X+l+COS (B) *F) 

: rem 

98 

690 

L=K: IFL<1THEN680 

: rem 

194 

1200 

Z=INT (Y+l-SIN (B) *G) 

: rem 

102 

700 

PRINTN$ (L) : PRINT"PIU ' ESTERNO?"; 


1210 

POKEV, X : POKEV+1 , Y : POKEV+2 , W 

: rem 

12 



: rem 

237 

1220 

POKEV+3 , Z : POKEBP+7 , 32+C 

: rem 

138 

710 

GOSUB470 : IFK$="Z"THEN360 

: rem 

142 

1230 

SYSLC, 9,30 : PRINT INT (T*365 .25) 


720 

H=K : IFH<LORH>9ORH-L>4THEN710 : rem 

253 



: rem 

252 

730 

PRINTN$ (H) -.PRINT :X=1 

: rem 

249 

1240 

GOSUB590 : IFK$="Z"THEN360 

: rem 

192 

7 40 

FOR J=1 TOH-L+1 : X=X+2 A J : NEXT 

: rem 

159 

1250 

IFFLTHEN1240 

: rem 

223 

750 

FORJ=LTOH:F(J)=D(J) *90/D(H) 

: rem 

23 

1260 

IFK$="+"ANDM< . 006THENM=M*2 

: rem 

245 

760 

E (J)=F(J) *SA:NEXT :M=P (L) / 50 

: ML=M* 9 

1270 

T=T+M : GOTO 1130 

: rem 

95 



: rem 

. 215 

L280 

POKEV+32 , 5 : POKEV+33, 0 : POKE64 6 , 5 


770 

INPUT"ANNO INIZIALE (1-2000) ";K$ 




: rem 

87 



: rem 

14 

1290 

GOSUB550 : PRINT" {CLR}"RE$T$ (3) :GOSUB5 


780 SY=VAL(K$) : IFSY<10RSY>2000THEN630 70 treni 145 



- 

: rem 

34 

1300 

INPUT"ECCENTRICITA ’ (0-. 96) ";K$ 


790 

PRINT" {CLR} {YEL} "T$ (1) :K=1 

: rem 

143 


: rem 

34 

800 

FOR J=LTOH : POKE 6 4 6 , H ( K ) 

: rem 

86 

1310 

E=VAL(K$) :IFK$="Z"THEN360 : rem 

197 

810 

PRINTTAB (31) N$ (J) :K=K+1:NEXT 

: rem 

161 

1320 

IFE<0ORE> . 9 60RLEN (K$ ) =0THEN12 80 


820 

POKE646, 14 :GOSUB500 :SYSLC, 7, 

31 



' : rem 

110 



: rem 

4 

1330 

FL=1 : IFRIGHT$ (K$, 1) ="R"THENFL=-1 


830 

PRINT " TERRA" : PRINTTAB (31) "ANN I " 



: rem 

126 



: rem 

167 

1340 

PRINT" {CLR}"RE$T$ (3) :GOSUB570 


840 

E= . 25 : T=SY-EY :FL=1 

: rem 

47 


: rem 

57 

850 

POKEV, 130 :POKEV+l, 148 :POKEV+21,X 

1 * 

1350 

PRINT "ECCENTRICITÀ ’ ="E : SYSLC, 2,27 




: rem 

151 


: rem 

108 

860 

FORJ=LTOH : A=T/P (J) +R(J) 

: rem 

129 

1360 

IFETHENPRINT" ACCELERAZIONE" : rem 

83 
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1370 

M=0 . 01 :T=0 :F=65*SA:G=65*FL : rem 

218 

1800 

DATA 

253,174,32,158,173,32,170 


1380 

POKEV, 106 :POKEV+l, 148 :POKEV+21, 3 




: rem 

188 


: rem 

164 

1810 

DATA 

177,96,162,6,6,251,38 :rem 

2 

1390 

A= (T-INT (T) ) *PP : Z=1+E*C0S (A) 


1820 

DATA 

252, 6,253,38,254,202,208 



: rem 

138 



: rem 

138 

1400 

X=E+ (E+COS (A) ) /Z : Y= (E*E-1) *SIN(A) /Z 

1830 

DATA 

245, 169, 21, 133, 2, 160, 2: rem 

30 


: rem 

237 

1840 

DATA 

177,251,162,8,106,38,255 


1410 

X-INT (107+X*F) :Y=INT (149+Y*G) 




: rem 

149 


: rem 

193 

1850 

DATA 

202,208,250,192,1,240,4 


1420 

J— INT (A/ Se) : POKEV+2 , X : POKEV+3 , Y 




: rem 

76 


: rem 

59 

1860 

DATA 

152,73,2,168,165,255,145 


1430 

IFE>0 . 1THENSYSLC, 2,21 : PRINTP$ ( J) 




: rem 

150 


: rem 

239 

1870 

DATA 

253, 192, 1,240, 4, 152, 73: rem 

37 

1440 

GETK$ : IFK$="Z"THEN1280 : rem 

37 

1880 

DATA 

2,168,136, 16,223, 162, 3 : rem 

40 

1450 

T=T+M:GOTO1390 : rem 

103 

1890 

DATA 

230,251,230,253,202,208,249 


1460 

POKEV+32, 3 : POKEV+3 3, 6 :POKE646, 3 




: rem 

29 


: rem 

89 

1900 

DATA 

198,2,208,208,96 . : rem 

11 

1470 

PRINT" {CLR} "RE$T$ (4) " MENU" : SYSLC, 4, 

1910 

DATA 

0,15,0,0,0,192,0,0,48 :rem 

211 


0 : rem 

229 

1920 

DATA 

0,0,56,0,0,28,0,0,28 : rem 

165 

1480 

GOSUB57 0 : SYSLC, 4,0 : rem 

109 

1930 

DATA 

0,0,14,0,0,14,0,0,7 : rem 

104 

1490 

PRINT" S SOLE": PRINT" M LUNA" 


1940 

DATA 

0,0, 7, 0,0,7, 0,0, 7 : rem 

13 


: rem 

173 

1950 

DATA 

0,0,7,0,0,14,0,0,14 : rem 

106 

1500 

F0RJ=1T09: PRINT J;N$ (J) :NEXT:rem 

19 

1960 

DATA 

0,0,28,0,0,28,0,0,56 :rem 

169 

1510 

SYSLC, 4,0 :FORJ=0TOl0 : rem 

237 

1970 

DATA 

0, 0, 48, 0, 0, 192, 0, 15, 0, 0 


1520 

PRINTTAB (20) CHR$ ( J+65) " "F$ ( J) :NEXT 



: rem 

53 


: rem 

211 

1980 

DATA 

0,15, 0,0, 7, 192, 0,3, 240: rem 

14 

1530 

GOSUB470 : IFK$="Z"THEN360 : rem 

191 

1990 

DATA 

0, 1,248,0,1,252,0,1,252 


1540 

IFK$="S”THENK=0 :GOTO1590 :rem 

197 



: rem 

64 

1550 

IFK$="M"THENK=10 :GOTO1590 :rem 

241 

2000 

DATA 

0, 0,254,0,0,254,0.0,255 


1560 

IFK>0ANDK<10THEN1590 :rem 

205 



: rem 

46 

1570 

K=ASC (K$) -65 : IFK<0ORK>10THEN1530 


2010 

DATA 

0,0, 255, 0,0, 255, 0,0, 255 



: rem 

135 



: rem 

49 

1580 

GOTO1720 :rem 

209 

2020 

DATA 

0,0,255,0,0,254,0,0,254 


1590 

POKEV+32, 3 : POKEV+ 33,11: POKE 646,3 




: rem 

48 


: rem 

137 

2030 

DATA 

0,1,252,0,1,252,0,1,248 


1600 

PRINT" {CLR} "RE$N$ (K)RX$; : rem 

253 



: rem 

50 

1610 

H=4 : IFK=0ORK=10THENPRINT :GOTO1630 

2040 

DATA 

0,3,240,0,7,192,0,15,0,0 



: rem 

133 



: rem 

94 

1620 

H=10 : PRINT" PIANETA#"K"DAL SOLE" 


2050 

DATA 

0,15,0,0,15,192,0,15,240 



: rem 

114 



: rem 

101 

1630 

PRINT :FORJ=OTOH : rem 

26 

2060 

DATA 

0,15,248,0,15,252,0,15,252 


1640 

PRINTF$ ( J) TAB (18) Z (K, J) TAB (28) U$ ( J) 



: rem 

212 


: rem 

0 

2070 

DATA 

0, 15,254, 0, 15,254,0, 15,255 


1650 

NEXT: IFK<10THEN1680 : rem 

186 



: rem 

215 

1660 

PRINT"DIST. DALLA TERRA" TAB (19) "39090 

2080 

DATA 

0, 15,255, 0, 15,255, 0, 15,255 



0 KM.” : rem 

173 



: rem 

218 

1670 

PRINTF$ (9) TAB (19) "6 MESI" : rem 

137 

2090 

DATA 

0, 15,255, 0,15,254,0, 15,254 


1680 

PRINT: IFK<4ORK=10THEN1770 : rem 

104 



: rem 

217 

1690 

F0RJ=1T0Z (K, 10) : C=INT ( (J-l) il) 


2100 

DATA 

0, 15,252, 0, 15,252,0, 15,248 



: rem 

234 



: rem 

207 

1700 

L=13+J-C*7: SYSLC, L,C*13 : rem 

56 

2110 

DATA 

0, 15,240,0, 15, 192,0, 15, 0, 0 


1710 

PRINTM$ (K, J) :NEXT:GOTO1770 : rem 

148 



: rem 

190 

1720 

POKEV+32 , 3 : POKEV+3 3 ,11: POKE 646,3 


2120 

DATA 

0,15,0,0,31,192,0,63,240 



: rem 

132 



: rem 

100 

1730 

PRINT" {CLR} "RE$F$ (K) RX$TAB ( 19) U$ (K) 

2130 

DATA 

0, 127,248,0, 127,252, 0, 127,252 


: rem 

101 



: rem 

110 

1740 

L=0 : H=10 : IFK>4THENL=1 : H=9 : rem 

12 

2140 

DATA 

0,255,254, 0,255,254,0,255,255 

1750 

SYSLC, 5, 0 :FORJ=LTOH : rem 

247 



: rem 

119 

1760 

PRINTN$ ( J) TAB (18) Z ( J, K) :NEXT 


2150 

DATA 

0,255,255,0,255,255,0,255,255 


: rem 

222 



: rem 

122 

1770 

GOSUB570 :GOSUB470 :GOTO1460 : rem 

126 

2160 

DATA 

0,255,255,0,255,254, 0,255,254 

1780 

DATA 32,13,192,132,251,32,13 




: rem 

121 


: rem 

78 

2170 

DATA 

0,127,252,0,127,252,0,127,248 

1790 

DATA 192,166,251,76,240,255,32 




: rem 

114 


: rem 

200 
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2180 

DATA 

0, 63,240,0, 

31,192,0, 15, 0, 0 


2550 

DATA 

"DISTANZA DAL SOLE"," 

MILIONI KM 




: rem 

198 


II 


: rem 

165 

2190 

DATA 

0,31,0,0,255,192,3,255,240 


2560 

DATA 

58,108,150,228,777 

: rem 

116 




: rem 

215 

2570 

DATA 

1427,2869,4497,5905 

: rem 

190 

2200 

DATA 

3,255,248,7 

,255,252,7,255,252 

2580 

DATA 

"DURATA ANNO", "ANNI /TERRA" 





: rem 

131 




: rem 

93 

2210 

DATA 

15,255,254, 

15,255,254,31,255 

,25 

2590 

DATA 

0.241,0.615,1,1.88,11 

.86 



5 


; rem 

21 




: rem 

135 

2220 

DATA 

31,255,255, 

31,255,255, 31,255 

,25 

2600 

DATA 

29.46,84,164,248 

: rem 

14 


5 


: rem 

20 

2610 

DATA 

" VELOCITA* ORBITALE " , " 

KM/H" 


2230 

DATA 

31,255,255, 

15,255,254, 15,255 

,25 

* 



: rem 

118 


4 


: rem 

23 

2620 

DATA 

172000, 125000,106000, 

86900 


2240 

DATA 

7,255,252,7 

,255,252,3,255,248 




: rem 

232 




: rem 

135 

2630 

DATA 

46600,35300,24100, 19300,16000 

2250 

DA?A 

3,255,240,0 

,255, 192,0, 31, 0,-0 





: rem 

123 




: rem 

48 

2640 

DATA 

" INCLINAZ . ASSE" , "GRADI" 


2260 

DATA 

0,255,0,3,255,192,15,255,240 





: rem 

179 




: rem 

67 

2650 

DATA 

0,179,23.5,25,3.1 

: rem 

41 

2270 

DATA 

31,255,248, 

63,255,252, 63,255 

,25 

2660 

DATA 

26.7,97.9,28.8,0 

: rem 

16 


2 


: rem 

31 

2670 

DATA 

"TEMPO-GUIDA (90KMH) ", 

ANNI 


2280 

DATA 

127,255,254 

,127,255,254,255, 

255 




: rem 

53 


, 255 


: rem 

188 

2680 

DATA 

75,139,193,295,1002 

: rem 

163 

2290 

DATA 

255,255, 255 

,255,255,255,255, 

255 

2690 

DATA 

1840,3698,5797,7612 

: rem 

194 


, 255 


: rem 

195 

2700 

DATA 

LUNE , - 

: rem 

112 

2300 

DATA 

255,255,255 

, 127,255,254,127, 

255 

2710 

DATA 

0,0,1,2,16,17,5,3,1 

: rem 

111 


f 254 


: rem 

181 

2720 

DATA 

SOLE, MERCURIO, VENERE, 

TERRA, 

MART 


2310 DATA 63,255,252, 63,255,252,31,255,24 
8 : rem 2 6 

2320 DATA 15,255,240,3,255,192,0,255,0,0 

: rem 156 

2330 DATA 0,112,3,248,6,248,9,248,12,112 




: rem 

165 

2340 

DATA 

64, 192, 67, 192 : rem 

118 

2350 

DATA 

128,224, 131,224, 134,224 




: rem 

80 

2360 

DATA 

46,45,45,45,45,45,44,37 




: rem 

98 

2370 

DATA 

7, 3, 4, 14, 8, 6, 7, 12 :rem 

37 

2380 

DATA 

DIAMETRO, KM : rem 

0 

2390 

DATA 

1390000,4980, 12300,12750 




: rem 

147 

2400 

DATA 

6750, 141600, 114200, 51500 




: rem 

133 

2410 

DATA 

49900,2400,3500 : rem 

205 

2420 

DATA 

MASSA, (TERRARI) : rem 

192 

2430 

DATA 

332830,0.055,0.815,1 : rem 

191 

2440 

DATA 

0.107,318, 95.2, 14.5 : rem 

144 

2450 

DATA 

17.2,0.01,0.012 : rem 

181 

2460 

DATA 

"DENSITÀ 1 ", " ( ACQUA=1 ) " : rem 

243 

2470 

DATA 

1.4, 5. 4, 5. 2, 5. 5, 3. 9, 1.3 




: rem 

70 

2480 

DATA 

0.7, 1.2, 1.7, 1.4, 3. 4 : rem 

124 

2490 

DATA 

"PER . ROTAZIONE" , "GIORNI /TERRA" 



: rem 

226 

2500 

DATA 

25,58.9,243,1,1.03,0.404 




: rem 

122 

2510 

DATA 

0.444,0.67,0.77,6.39,27.3 




: rem 

189 

2520 

DATA 

TEMPERATURA, CENTIGRADI : rem 

51 

2530 

DATA 

5500,320, 480,22,-23,-150 




: rem 

116 

2540 

DATA 

-180,-206,-220,-240,-23 




: rem 

54 


E, PHOBOS , DEIMOS : rem 206 

2730 DATA GIOVE, METIS, AD RASTREA, AMALTHEA, 
THEBE, IO, EUROPA, GANYMEDE, CALLISTO 

:rem 135 

2740 DATA LEDA, HIMALIA, LYSITHEA, ELARA, ANA 
NKE, CARME, PASIPHAE,S INOPE : rem 2 9 

2750 DATA SATURNO, ATLAS, X, X, JANUS, EPIMETH 
EUS , MIMAS , ENCELADUS , TETHYS , TELESTO 

:rem 75 

2760 DATA CALYPSO, DIONE, X, RHEA, TITANO, HYP 
ERION, IAPETUS, PHOEBE : rem 42 

277 0 DATA URANO, MIRANDA, ARIEL, UMBRIEL, TIT 
ANIA, OBERON : rem 147 

2780 DATA NETTUNO, TRITONE, NEREIDE, X, PLUTO 
NE , CARONTE , LUNA : rem 252 

2790 DATA 198,255,351,285,249,180,204,227 
,173 : rem 198 
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161 Boris Allan 

Grafica 

e Commodore 64 

Pagine 152 L. 15.000 
Cod. 573D 

L’argomento maggiormente 
trattato in questo libro è lo 
sviluppo di un sistema di 
“turtle graphics” ad alta ri- 
soluzione per il Commodore 
64. Il testo è uno strumento 
che permette di realizzare ri- 
sultati grafici di buona quali- 
tà sfruttando le possibilità 
nascoste di questa macchi- 
na. Infatti, sia il manuale d’u- 
so che la guida di riferimento 
risultano 

carenti ed oscure a chi si av- 
vicini all’uso dell’home com- 
puter senza precedenti co- 
noscenze informatiche. Aiu- 
tare il lettore a superare que- 
ste situazioni è l’obiettivo 
dell’Autore, che si sforza di 
mantenere sempre l’esposi- 
zione delle tecniche usate 
su di un piano il più possibile 
comprensibile per il neofita. 

I concetti iniziali sono 
espressi secondo il diffuso 
linguaggio dei Turtle Gra- 
phics, nucleo del linguaggio 
LOGO. L’insieme delle pro- 
cedure presentate, dedicate 
a singole operazioni grafi- 
che, costituisce un organico 
di strumenti per ideare im- 
magini sempre più comples- 
se, utilizzabili anche all’in- 
terno di programmi ideati dal 
lettore. 

È necessaria una conoscen- 
za della programmazione 
Basic e uno spiccato interes- 
se verso le applicazioni gra- 
fiche anche su periferiche 
dedicate. 


104 Rita Bonelii 

Commodore 64. Il Basic 

Pagine 324 L. 26.000 
Cod. 348D 

L’accurata esposizione del 
linguaggio BASIC e l’am- 
piezza. degli esempi sono 
una costante dei libri di Rita 
Bonelii, autrice di fama con- 
solidata e conosciutissima 
tra gli appassionati di infor- 
matica. Quest’opera diventa 
così indispensabile agli ac- 
quirenti del C64 che deside- 
rino realmente imparare ad 
utilizzarlo, scrivendo in pro- 
prio i programmi BASIC. È 
così colmata la lacunosa 
manualistica di cui il C64 è 
dotato, e finalmente i pos- 
sessori di Commodore non 
dovranno più rivolgersi a ca- 
se editrici straniere o a mal- 
fatte traduzioni per acquisire 
tutte le conoscenze utili al- 
l’uso intelligente del loro 
computer. 

Proprio l’alta qualità ha reso 
possibile il successo e la dif- 
fusione di questo testo ormai 
“celebre” tra tutti i posses- 
sori e gli utenti del Commo- 
dore 64. 


GRUPPO EDITORIALE 


DIVISIONE LIBRI 


Voi e il vostro Commodore 64 

Commodore 64. Il BASIC 

Il libro dei giochi del Commodore 64 


22.000 


1 più venduti 



FINAL C ARTRIDGE 


VOICEMASTER 


Il primo sistema operativo esterno 
per Commodore 64 


Nel 1 985 ha vinto ii premio Oskar 
per la migliore utility dell’anno. 
Nel 1986 supera se stessa e si 
impone come la cartuccia più 
completa in circolazione. 

Vero e proprio sistema operati- 
vo esterno (32K di ROM) non 
occupa neppure un byte di me- 
moria e fa compiere un bel salto 
di qualità al tuo 64. 

Turbodisco - 6 volte più veloce 
in lettura, 8 volte più veloce in 
scrittura. 

Turbonastro - 10 volte più velo- 
ce, anche con i files. Usa i norma- 
li comandi Commodore ed è 
compatibile con il turbo stan- 
dard. 

Freeze Frame - Permette di con- 
gelare in memoria praticamente 
tutti i programmi per un back-up 
totale e automatico su disco/ 
cassetta e per la riproduzione su 
carta delle schermate in Hi-Res. 
Pagina piena con 12 gradazioni 
di grigio. In modalità training di- 
sabilita il riconoscimento della 
collisione fra sprites e vi garanti- 
sce... Timmortalità. 

Interfaccia avanzata Centro- 
nics - Permette di stampare tutti 
i simboli grafici e i codici di con- 
trollo Commodore su qualsiasi 
stampante standard Centronics. 
Molto importante per i listati. 

24K di RAM in più per i program- 
mi Basic - Due nuovi comandi, 
“Memory read” e “Memory wri- 



te”, possono spostare 192 bytes 
con la velocità del Linguaggio 
Macchina ovunque nell’ambito 
dei 64K di RAM del Commodore 
64. Utilizzabili con stringhe e va- 
riabili. 

Comandi Basic 4.0 - Come 
Dload, Dsave, Dappend, Cata- 
log, cc. 

Basic Toolkit - Con Auto, Re- 
num (compresi Goto e Gosub), 
Find, Help, Old, ecc. 

Tasti funzione preprogrammati 

- Run, Load, Save, Catalog, co- 
mandi per gestione disco, List 
(rimuove tutte le eventuali prote- 
zioni). 

Nuove funzioni da tastiera - Per 

cancellare una parte di una riga, 
fermare e riprendere un listato, 
spostare il cursore nell’angolo in 
basso a sinistra. Con il comando 
Type potete usare la stampante 
come una macchina da scrivere. 
Monitor L/M esteso - Con as- 
sembler e disassembler. Non ri- 
siede in memoria. 

Pulsante di reset - Sempre mol- 
to utile. 

Interruttore On/Off - Per evitarvi 
il fastidio di togliere e rimettere 
la cartuccia. 


EPSON 

P40 

ECCEZIONALE! 

Stampante EPSON P40 
all’incredibile prezzo 
di lire 230.000. 

E per gli amici del Final Cartrid- 
ge una ventata di follia: altre 
71.000 lire di sconto (159.000 
anziché 230.000) solo se acqui- 
stata insieme alla cartuccia. 

• EPSON P40 portatile con ali- 
mentazione a batteria e a rete 

• Stampa a matrice di punti 



• Grafica 

• 80 colonne in compresso (lar- 
ghezza della carta 112 mm) 

• Collegabile al C64 tramite il 
cavo Centronics fornito in op- 
zione con The Final Cartridge 


Processore vocale e musicale per: 


Commodore 64 e 1 28 (in modo 
64), Atari 800/800XL/65XE/ 
130XE Apple ll+/lle/llc (il 11+ ri- 
chiede 64K e paddle port adap- 
ter) 

Nuova versione di software con 
Editor per modificare le caratte- 
ristiche dei suoni da riprodurre 
per una fedeltà ancora migliore. 
Nuovo prezzo ribassato a 
199.000 lire. E per ll+/lle puoi 
avere in opzione a 89.000 lire la 
scheda Soundmaster, che con- 
sente all’Apple le stesse presta- 
zioni musicali di Commodore e 
Atari. 


Programmi parlanti? 


I tuoi programmi possono parla- 
re con la tua voce, in qualsiasi 
lingua e con qualsiasi accento. 
Usa il comando LEARN e parla 
nel microfono; con il comando 
SPEAK il computer restituirà 
all’altoparlante quello che hai 
detto. 

II manuale riporta numerosi 
esempi di come aggiungere la 
voce ai programmi. 


Gli ordini si danno 
a voce! 


Ti piacerebbe dare ordini al com- 
puter con la tua voce? 
Semplicissimo! Con il comando 
TRAIN gli comunichi le parole o 
le frasi da riconoscere e con il 


comando RECOGNISE ottieni 
che le capisca e si comporti di 
conseguenza. 


Un po’ di musica per 
rilassarti 


Con il software del Voicemaster 
puoi comporre e suonare sem- 
plicemente canticchiando o fi- 
schiettando. Non importa se non 
sai leggere la musica. 

La tua voce o il tono del fischio 
scriveranno le note per te! 
Mentre canti o fischi le note ap- 
paiono sullo schermo: le puoi 
correggere, riascoltare e, quan- 
do sei soddisfatto, puoi stampa- 
re lo spartito. In modo perfor- 
mance puoi cambiare le ottave, 
le chiavi o aggiungere accordi. 

Questo prodotto, a questo prez- 
zo, può confrontarsi unicamente 
con apparecchiature di costo 
pari a qualche milione. Vuoi una 
prova? Richiedici a sole 29.000 
lire il dischetto parlante dimo- 
strativo che non necessita di 
hardware aggiuntivo e contiene 
alcuni vocabolari generici utiliz- 
zabili nei tuoi programmi. Insie- 
me al dischetto riceverai un ma- 
nuale esplicativo in Italiano, utile 
anche come introduzione al Voi- 
cemaster. 

H prezzo pagato per il dischetto 
dimostrativo ti sarà interamen- 
te rimborsato nel caso di suc- 
cessivo acquisto del Voicema- 
ster. 











UGHT PEN 


Costruita in acciaio inossidabile, 
Microscribe è in grado di pilotare 
ih maniera molto precisa gli spo- 
stamenti del cursore anche re- 
stando a 5 cm di distanza dallo 
schermo. 

Il software per disegnare in alta 
risoluzione si basa sul principio 
del menù ad icone e permette, 
tra l’altro, il tracciamento a mano 
libera, lo zoom, la cancellazione, 
il salvataggio delle immagini su 
disco o cassetta, l’uso della ta- 
stiera per introdurre testo. Tutto 
normale, a parte la qualità. 
Assolutamente eccezionali so- 
no invece altri due programmi in 


Non perdere tempo, 
Ritaglia e spedisci 
oggi stesso a: 
Jackson S.p.A. 

Via Rosellini, 12 
20124 MILANO 


dotazione: una calcolatrice su 
schermo per fare direttamente 
tutti i vostri conti e un sistema 
per utilizzare la tight pen dentro i 
programmi BASIC. 

Il prezzo? Solo 95.000 per la 
versione su cassetta e 98.000 
per il floppy. 


MEGAMOUSE 

L’unico mouse degno 
del Commodore 


INVIATEMI (barrare le caselle opportune) 
Voicemaster (specificare computer 


Dischetto parlante (specificare computer 

Soundmaster per Apple IH-/lle 

The Final Cartridge 

Cavo parallelo Centronics (opzionale) 

Stampante EPSON P40 (Centronics) 

EPSON P40 + Cavo parallelo + Final Cartridge 
Stampante G.E. TXP-1000 

□ L. 399.000 (Centronics) □ L. 449.000 

Lighpen Microscribe □ L. 95.000 (cassetta) □ 
Sedia OAK □ L. 1 19.000 (singola) □ 


□ L. 199.000 

) □ L. 29.000 

□ L. 89.000 

□ L. 147.000 

□ L. 36.000 

□ L. 230.000 

□ L. 342.000 

(Commodore/Atari) 
L. 98.000 (floppy) 
L. 214.000 (coppia) 


OAK 


PREZZO IRRIPETIBILE 


Fa bene sedersi bene 


Standard Centronics per 
MSX/Apple/Amstrad/IBM 
PC 399.000 (listino 500.000) 
Interfaccia diretta Commo- 
dore/Atari 449.000 (listino 
570.000) 

Questa stampante universale, 
letter quality, può essere colle- 
gata a qualsiasi computer dota- 
to di interfaccia standard Centro- 
nics tramite apposito cavo (non 
compreso). 

Per gli utenti Commodore/Atari 
la TXP-1 000 viene già fornita con 
interfaccia diretta e cavo di col- 
legamento. Non è richiesto 


hardware aggiuntivo. Il prezzo di 
lancio sfida le leggi mercato. Fin- 
ché dura. 

• Testina di stampa a 16 aghi. Car- 
rello standard 80 colonne. 

•Silenziosissima. 

• Foglio singolo e modulo conti- 
nuo. Carta normale o termica. 

• Due velocità: 50 o 25 caratteri/ 
secondo. 

• Qualità di stampa controllabile 
tramite il cursore “Density". 


Creata da un team di designers 
in collaborazione con medici e fi- 
sioterapisti e realizzata in legno 
di rovere, OAK distribuisce il pe- 
so del corpo in maniera bilan- 
ciata rispetto al baricentro, ri- 
sultando estremamente confor- 


tevole. La maggior parte del cari- 
co è sopportata dai femori e la 

colonna vertebrale rimane in 
posizione corretta. Oltre a ciò, 
OAK è molto più bella di una nor- 
male sedia e il suo prezzo è sba- 
lorditivo: solo 119.000 lire. E se 
te ne servono due risparmi 
24.000 lire: 214.000 lire invece 
di 238.000. 


MICROSCRIBE 


Il software è completamente 
guidato tramite icone, ossia sim- 
boli grafici racchiusi in un qua- 



drato a rappresentare le diverse 
funzioni. 

Per selezionare una funzione ba- 
sta far scivolare il mouse sul pia- 
no della scrivania fino a portare il 
cursore sopra la icona prescelta 
e quindi premere brevemente il 
pulsante adatto. 

L’uso di Megamouse risulta tal- 
mente immediato e naturale da 
non poterne fare a meno: com- 
puter art, CAD, disegno indu- 
striale, grafici di ogni tipo sono 
solo alcune delle applicazioni 
possibili. E i risultati faranno im- 
pallidire i fratellini maggiori a 32 
bit. 


Megamouse □ L. 125.000 

Tutti i prezzi comprendono IVA e spese di spedizione in contrassegno postale 


Nome /Cognome 

Indirizzo 


CAP/Città 

Cod. Fise, (solo se si desidera fattura) 

Data 

Firma 


La spedizione sarà effettuata direttamente dall’importatore MICROSTAR s.r.l. 
* Solo per informazioni tecniche: (02) 6597693 

I Tutto il materiale è coperto da 12 mesi di garanzia. 

I 




H À SCUOLA DI SCACCHI" con 
il Commodore 64 

Testi: A. Capece 

Didattica e software: M.L. Nitti e 

D. Matturro 

Chi vincerà l'appassionante duello 
tra Kasparov e Karpov? 

Tra poche settimane, alla concia 
sione del campionato del mondo 
iniziato a fine luglio, lo sapremo. 

Ma chi sono davvero Kasparov e 
Karpov? Quale è la loro storia per- 
sonale al di fuori della scacchiera? 
Come sono arrivati ai vertici del 
Nobil Giuoco? E cosa succederebbe 
se tornasse alle gare Bobby Fi- 
scher? Ma tornerà mai Bobby Fi- 
scher? 

Per rispondere a queste domande, 
per raccontare la storia degli scac- 
chi e dei suoi personaggi, per sca- 



vare nella' vita privata dei grandi 
campioni di oggi e del passato c'è 
oggi "A scuola di scacchi" una 
innovativa e nuova opera a fa- 
scicoli dell'Editoriale Jackson. 

Ma "A scuola di scacchi" è an- 
che un nuovo modo per imparare di- 
vertendosi a giocare: basta con i 
semplici libri da leggere e studia- 
re, spesso senza la possibilità di 
verificare se e che cosa si è capi- 
to. Oggi, nell'era dell'informatica, 
è il computer che insegna, con il 
nuovo corso di scacchi interattivo 
di "A scuola di scacchi". I se- 
greti dei grandi campioni, le tecni- 
che per vincere, l'analisi delle 
combinazioni, che hanno fatto la 
storia del gioco. 

E per chi è già bravo la possibilità 
di misurarsi contro famosi campio- 
ni, mettendosi al posto dei più im- 
portanti giocatori in partite famo- 



se: avreste trovato, al loro posto, 
le mosse giocate da Karpov, Fi- 
scher, Kasparov, Tal, Alekhine, 
Carablanca? 

E per chi non è interessato ad ap- 
profondire la pratica agonistica 
ma vuole conoscere aneddoti, cu- 
riosità, statistiche, le origini mil- 
lenarie del gioco e così via, ecco 
una eccezionale cavalcata storica 
attraverso i secoli, dalla nascita 
degli scacchi alla diffusione pres- 
so gli arabi, dalla condanna della 
Chiesa alla grande diffusione odier- 
na in tutto il mondo. 

"A scuola di scacchi", un'ope- 
ra del tutto nuova nel suo genere, 
da leggere, da consultare, da gioca- 
re; un'opera che vi condurrà per 
mano nel fantasmagorico mondo de- 
gli scacchi e ve lo farà amare. 

Opera a fascicoli più cassetta. 

In edicola a settembre ogni 15 
giorni a L. 8000 
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In busta chiusa inviate questo coupon a: 
Gruppo Editoriale Jackson via Rosellini, 12 - 20124 Mi 




Vendo videogame per C 64. 
Per avere la lista inviare L. 
550 in francobolli. 
Superofferta : una cassetta 
con giochi del calibro di 
Donkey Kong, Calcio II, 
Baseball, One to one, 
Popeye, Speed King e 
Ghostbuster, tutti con 
Turbo Tape. Marcello Grippa 
- Viale Giulio Cesare, 28 - 
22100 Como - Tel. 
031/261014 

Vendo software su disco e 
cassetta per C 64, utility e 
giochi. Ultime novità^ 
Frankie goes to Hollywood, 
Space station, Rambo II, 
Pascal, Forth, Logo, ecc. 
Raffaele Miele - Via del Gran 
Sasso, 15 - 80144 Napoli - 
Tel. 081/7113229 

Cedo software su dischi in 
cambio di francobolli, 
monete e cartamoneta per 
collezione. Rispondo a tutti. 

I dischi a vostre spese. 
Salvatore Careddu - Via G. 
Deledda, 111 - 07100 

Sassari - Tel. 079/260336 

Compro C 64, possibilmente 
con registratore. Offro L. 

160.000 al massimo. 
Vittorio Schirru - Via Cupa 
Tozzolo, 3 - 80100 Napoli - 
Tel. 081/7414646 

Cambio programmi C 64 con 
i manuali di: Blazing 
paddles, M. Interrupt, 
McTutor, Doodle II, Logo, 
Zoom -Pascal, G- Pascal, 
Pilot, Music studio, Master 
64. Stefano Nose* - Via 
Magenta, 17 - 37069 

Villafranca - Tel. 7903129 

C 16 Computer Club: 
disponiamo di oltre 150 titoli 


per C 16, che vendiamo a L. 

4.000 cadauno oppure 

2.000 titoli per C 64, sempre 
allo stesso prezzo. Per 
informazioni rivolgersi a: 
Doriano Battagin - Via 
Firenze, 20 - 1 3 0 6 0 
Valdengo (VC) 

Vendo 4 cartucce per C 64: 
Jack Attack, Visible Solar 
System, Jupiter Lander e 
Kickman originali della 
Commodore a L. 10.000 
l'una. Annuncio sempre 
valido. Andrea Tura - Via 
Camelie, 17 - 20095 Cusano 
Milanino (MI) - Tel. 
02/6133020 

Per C16 vendo e cambio 
programmi di giochi, utility e 
didattici in genere. Tratto 
preferibilmente in zona 
Milano, telefonare ore pasti. 
Giovanni Marchesoli - Via 
Ungheria, 15 - 20138 Milano 
- Tel. 02/503173 

Vendo moltissimi programmi 
listati, utility, videogame; 
ultimissime novità 1 : 
Impossible Mission, Star 
League, Baseball, Summer 
Games. Richiedere lista. 
Generoso Fummo - Via 
Vincenzo Schiavo, 6 - 
84100 Salerno - Tel. 
089/355369 

Vendo consolle Intellivision 
piu' 5 cassette gioco 
(Soccer, Tennis, Snafu, 
Shark-Shark, Popeye) a L. 
219.000. Solo zona 
Triveneto. Telefonatemi ore 
pasti. Luca Ardiri - Via 
Verona, 12 - 37022 Fumane 
(VR)-Tel. 045/7701732 


Vendo e cambio programmi 
per C 64. Ultime novità' e 
oltre 3.000 programmi solo 
su disco; i prezzi vanno da 
L. 2.000 a L. 4.0C0. Cambio 
solo a livello di novità' 1985- 
'86. Claudio Bacci - Via dei 
Pelaghi, 165 - 57100 

Livorno -Tel. 0586/852551 

Vendo per il tuo C 64 2.000 
programmi a prezzi 
imbattibili; tutte le ultime 
novità*. Massima serietà’ 
annuncio sempre valido. 
Telefonare dalle ore 19.00 
alle ore 21.00. Maurizio 
Anfosso - Via Simonetti, 4 - 
14018 Roatto d'Asti (AT) - 
Tel. 0141/938118 

Per C 64 vendo giochi 
magnifici (Calcio, Pac Man, 
Tarzan, QBert, Baseball, 
ecc.) a partire da L. 500. 
Per richiedere la lista e i 
prezzi scrivete a: Ivan 
Maccagnan - Via Jacopo 
Facen, 9 - 32033 Lamon 
(BL) 


Vendo C 16 piu* 
registratore, joystick e 6 
giochi a L. 220.000. 
Giuseppe Sambiase - Via 
Casilina Km 23, 400 - 00040 
Roma provincia - Tel, 
06/9462226 



Cerco i seguenti giochi i 
C 64: F.B, poxing (Eli' 
Summer Games II (Ep^ 
Tour de Fram 
(Activision). On curt tei 
(Activision), Box i i 
(Activision), Scooby 
(Elite), Rambo (Ocean) 
Winter G§mes (EpyfllJ 
Street Hawfc (Ocean), P 
su cassetta. Ante 
Procopio « Via Na^ni 
160 - 88060 $»olai 
Marina (CZ) *Te 

0967/81 02} , 


Vendo giochi per Q 
plus/4 trj| gul 
'Skramble, Pac Ma 
Tenni?, molti dei q 
turbiz?ati g J,, 1 " 
cadauno. Telefonare 
scrivere a; Rino De VI 
Via E , Ge?u', 9 - 88 
Catanzafp 
0961/^6293 




Vendq C 64 (5 mesi 
causa acquisto 
Vendp inolfre regi 
piu* di 100 program 
e giochi), le guida 
numerose altre rivi 

450.000 trattabili/ 
Busato Rufflnl * Vi 
Cognola - 39100 
Trento - Te|, Q461/9 


Per VIC 20 vendo giochi e 
programmi. Dispongo di 
oltre 150 titoli, per lista 
gratuita scrivere o 
telefonare ore pasti. Remo 
Bibbiani - Via Pessagno, 17 
- 57018 Vada (LI) - Tel. 
0586/787256 


Vendo yiQ 20 
espansione }6 Kbyt i 
cassette, qgattro cartridj 
libri manuali, Tutto in ol ^ 
stato a Jp f 250 f | 
Telefonare pel pome 
Roberto Aptonioni r yja 
Canton - QQ144 Roma » f et 
06/6888223 


SUPERCOMMOQpFiÉ §4 « 128 


Vendo cassetta giochi per C 
64, con 10 giochi a scelta, a 
L. 15.000 (Buck Rogers, 
Pole Position, Soccer, 
ecc.). Vendo C 16 con 
registratore, joystick e oltre 
100 programmi a L. 450.000 
trattabili, Stefano 
Santambrogio - Via 
Oberdan, 12 - 20038 

Seregno (MI) - Tel. 
0362/235675 

Per C 16 vendo 
"Introduzione al Basic" 
parte I a L. 30.000 (due 
cassette con manuale in 
italiano). Vendo inoltre 
cartridge per VIC 20 a L. 
10.000. Vendo software su 
disco per C 64 (possiedo 
piu* di 600 programmi). 
Eventualmente sono 
disposto a cambiarne. 
Idelfo Borgo - Via Ponti Alti, 
58 - 36030 Zugliano (VI) - 
Tel. 0445/872785 


Vendo per C 64 cassetta 
con 35 programmi (es. 
Summer Games, Robb, Raid 
over Moscow, Pit Stop II, 
Bruce Lee, S.S. Challange, 
Stealth, Designerà pencil, 
Quill adventure writer. 
Stefano Longhi - Via Verdi, 
25 - 20053 Muggio' (MI) 

Per C 64 cambio software 
preferibilmente su disco. 
Aspetto la lista. Rispondo a 
tutti solo se per cambio. 
Annuncio sempre valido. 
Giovanni Pugliese - Via A. 
Volta, 93 - 74100 Taranto - 
Tel. 099/413769 

Vendo e cambio programmi 
per C 64 su cassetta. Ultima 
novità': Rambo II. Inoltre: 
Kung fu, Masters, Soccer 4, 
Impossible Mission II e altri 
eccellenti giochi. Rosario 
Mastantuono - Via Raffaele 
Cettieri - 84100 Salerno - 
Tel. 089/333168 


Compro qualsiasi 
programma per C 64. Inviate 
la lista. Cristiano 
Cravanzola - Via Prof. 
Oliva, 16 - 12011 Borgo 
S.Dalmazzo (CN) 

Vendo tavoletta grafica 
"Graphic Commander" 
originale Commodore a L. 
180.000, stampante MPS 
802 a L. 430.000. In regalo 
30 programmi, 8 utility e una 
sorpresa. Simone Badioli - 
Via Torconca, 1400 - 47048 
S. Giovanni in Marignano 
(FO) - Tel. 0541/760990 

Cambio numerosi programmi 
per C 64: giochi, utility, 
gestionali e grafici in alta 
risoluzione. Inviate la 
vostra lista, rispondoa a 
tutti. Walter Di Pace - Via 
Dante, 32 - 47041 Bellaria - 
Tel. 051/44090 


Vendo, cambio, compro 
giochi su cassetta o disco. 
Possiedo i giochi piu' famosi 
e interessanti come: The 
hobbit 11, Rambo 11, SI 5 
Strike Eagle, Conan, Boxe, 
ecc. Telefonare in ore 
pomeridiane. Alessandro Di 
Dio Rosso - Via Chiusi - 
00139 Roma - Tel. 

06/810788 

Vendo il miglior software per 
C 64 a prezzi 
stracciatissimi: Catch, 
Dragons Lair, Asterix, The 
Last V8, Back to thè future, 
Fast hackem, Di/Sector 
arsenal, ecc. Tutti 
programmi su disco. Marco 
Zamponi - Via X X 
Settembre, 48 - 63014 
Montegranaro (AP) - Tel. 
0734/889914 


ISUPERCOMMORORi 


CEDOLA DI ORDINAZIONE RIVISTE ARRETRATE CON CASSETTA ALLEGATA 
da compilare e spedire in busta chiusa a 

Gruppo Editoriale Jackson * Via Rosellini, 12 - 20124 Milano - Tel. 6880951/2/3/4/5 


BUONO D’ORDINE PER RIVISTE ARRETRATE 


Anche se l’ordine riguardasse la sola cassetta, questa 
verrà comunque inviata insieme alla rivista al prezzo in- 
dicato. 


Vogliate inviarmi i numeri Nome . . . 

di SUPERCOMMODRE con cassetta Anno Cognome 


Al prezzo di L. 15.000 cad. 


Via 


□ Contanti allegati □ Assegno allegato n° 


□ 

□ 

□ 


Ho spedito V imporlo a mezzo vaglia postale 

Ho versato l'importo sul ccp. n° 11666203 intestato a Gruppo Editoriale Jackson 
- Milano 

Pagherò in contrassegno al postino al ricevimento 


Città C.A.P ,Prov. 

Se richiesta fattura: 

Cod. F. e P. Iva 

Data 

Firma 

Per i residenti all'estero - pagamento anticipato (vaglia o versamento su ns. ccp) 


66 SUPERCOMMODORE 64 e 128 9/86 



Venti fantastiche lezioni settimanali su cassetta, 
per apprendere in modo facile, interattivo e 
divertente, il BASIC, i principi di funzionamento 
delThardware e le tecniche di programmazione 
degli home computer più diffusi. 

Ogni lezione contiene esercizi di familiarizzazione 
con la macchina e con il suo linguaggio, in più 
alcuni giochi di crescente difficoltà, analizzati nella 
\ loro struttura. 
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